Se connecter avec
S'enregistrer | Connectez-vous

programme pemettant compter le nombre de valeur

Dernière réponse : dans Programmation

Je veux faire un programme pemettant de : -compter le nombre de valeur pour chaque ligne
- insérer nombre de nouvelle ligne en dessous de chaque ligne égal au nombre de valeur de chaque ligne

Code/

Sub Macro18()
'
' Macro17 Macro
' Macro enregistrée le 26/07/2006 par Air France
Dim Plage As Range, Cellule As Range, Z, zone, Plage1 As Range, Plage2 As Range
Dim Cpt As Long
Dim I As Integer
Set Plage1 = Range("A1", [A1].End(xlToRight))
Cpt1 = Plage1.count
selection = Plage1.Select
Set Plage2 = Range("A2", [A2].End(xlToRight))
Cpt2 = Plage2.count
selection = Plage2.Select
Set Plage3 = Range("A3", [A3].End(xlToRight))
Cpt3 = Plage3.count
selection = Plage3.Select

For I = 1 To Plage1.count
Rows("1:1").Select
selection.Insert Shift:=xlDown
Rows("1:1").copy
Rows("1:1").Paste
Next

For I = 1 To Plage2.count
Rows("2:2").Select
selection.Insert Shift:=xlDown
Rows("2:2").copy
Rows("2:2").Paste
Next

For I = 1 To Plage3.count
Rows("3:3").Select
selection.Insert Shift:=xlDown
Rows("3:3").copy
Rows("3:3").Paste
Next

End Sub

/Code


Je l'ai fais pour 3 ligne je voudrais le faire pour un nombre de ligne qui peut varier
je suppose qu'il faut utiliser des boucle qui peut me donner un coup de pouce
Lassé par la pub ? Créez un compte
Expert Programmation

Ah, en voila un qui est de bonne volonté mais qui ne sait pas bien lire. Ce n'est pas grave. ( Ou alors il n'a pas lu les règles mais ça ce serait très grave - Ou encore plus grave, il se fout de la gueule des modos puisqu'on lui a déjà dit, mais ça, je n'ose le croire ).

Remplace donc /CODE par [/CODE] et CODE/ par [CODE]. Merci.
Lassé par la pub ? Créez un compte