la methode activate de la classe range a echoué

Le
PST
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 cellul=
e
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4495621
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
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
Le #4495601
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" 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
Le #4494951
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
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






Publicité
Poster une réponse
Anonyme