la methode activate de la classe range a echoué

Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Entraide Applications Microsoft Office Excel la methode activate de la classe range a echoué

3 réponses

PST

07/05/2007 à 07:50

bonjour
je voudrais compter pour la feuil1 (sum_1) et la feuil2(sum_2)
A partir de la cellule a2 de chaque feuille jusqu'=E0 la prochaine cellul=
e=20
vide le nombre de cellule non vides
la syntaxe ci desous fonctionne individuellement mais pas ensemble=20
pourquoi et comment y remedier
=2E
merci

la methode activate de la classe range a echou=E9

Sub test_3()
Dim sum_1 As Integer
Dim sum_2 As Integer

Sheets("feuil1").Range("A2").Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
sum_1 =3D Selection.Cells.Count
MsgBox sum_1

Sheets("feuil2").Range("A2").Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
sum_2 =3D Selection.Cells.Count
MsgBox sum_2

end sub

3 réponses

JB

07/05/2007 à 07:02

Bonjour,

sum_1 = Sheets("feuil1").[A2].End(xlToRight).Column
MsgBox sum_1

sum_2 = Sheets("feuil2").[A2].End(xlToRight).Column
MsgBox sum_2

Attention! il faut que B2 ne soit pas vide

JB

On 7 mai, 07:50, PST wrote:

bonjour
je voudrais compter pour la feuil1 (sum_1) et la feuil2(sum_2)
A partir de la cellule a2 de chaque feuille jusqu'à la prochaine cellule
vide le nombre de cellule non vides
la syntaxe ci desous fonctionne individuellement mais pas ensemble
pourquoi et comment y remedier
.
merci

la methode activate de la classe range a echoué

Sub test_3()
Dim sum_1 As Integer
Dim sum_2 As Integer

Sheets("feuil1").Range("A2").Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
sum_1 = Selection.Cells.Count
MsgBox sum_1

Sheets("feuil2").Range("A2").Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
sum_2 = Selection.Cells.Count
MsgBox sum_2

end sub

jps

07/05/2007 à 07:14

bonjour PST
comme ceci peut-être
HTH
jps:

Sub test_3()
Dim sum_1 As Integer
Dim sum_2 As Integer

Sheets("feuil1").Activate
Range("A2").Select
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
sum_1 = Selection.Cells.Count
MsgBox sum_1
Sheets("feuil2").Activate
Range("A2").Select
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
sum_2 = Selection.Cells.Count
MsgBox sum_2

End Sub

"PST" a écrit dans le message de news:
463ea024$0$27400$
bonjour
je voudrais compter pour la feuil1 (sum_1) et la feuil2(sum_2)
A partir de la cellule a2 de chaque feuille jusqu'à la prochaine cellule
vide le nombre de cellule non vides
la syntaxe ci desous fonctionne individuellement mais pas ensemble
pourquoi et comment y remedier
.
merci

la methode activate de la classe range a echoué

Sub test_3()
Dim sum_1 As Integer
Dim sum_2 As Integer

Sheets("feuil1").Range("A2").Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
sum_1 = Selection.Cells.Count
MsgBox sum_1

Sheets("feuil2").Range("A2").Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
sum_2 = Selection.Cells.Count
MsgBox sum_2

end sub

PST

07/05/2007 à 15:09

Impeccable
merci

Bonjour,

sum_1 = Sheets("feuil1").[A2].End(xlToRight).Column
MsgBox sum_1

sum_2 = Sheets("feuil2").[A2].End(xlToRight).Column
MsgBox sum_2

Attention! il faut que B2 ne soit pas vide

JB

On 7 mai, 07:50, PST wrote:
bonjour
je voudrais compter pour la feuil1 (sum_1) et la feuil2(sum_2)
A partir de la cellule a2 de chaque feuille jusqu'à la prochaine cel lule
vide le nombre de cellule non vides
la syntaxe ci desous fonctionne individuellement mais pas ensemble
pourquoi et comment y remedier
.
merci

la methode activate de la classe range a echoué

Sub test_3()
Dim sum_1 As Integer
Dim sum_2 As Integer

Sheets("feuil1").Range("A2").Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
sum_1 = Selection.Cells.Count
MsgBox sum_1

Sheets("feuil2").Range("A2").Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
sum_2 = Selection.Cells.Count
MsgBox sum_2

end sub

la methode activate de la classe range a echoué

3 réponses

Veuillez sélectionner un problème