Tris de colonnes VBA
Bonjour,
Après un bon moment à chercher, je viens vous demander de l'aide.
Je vous joint un fichier pour un exemple.
J'ai 3 colonnes de même taille en entrées:
Première colonne composée de A et B
Deuxième colonne composée que de X
3 ème colonne composée que du chiffre 1
J'ai une 4 colonne en sortie qui doit incrémenter de 1 à chaque fois que l'on passe d'une lettre à une autre comme le montre la figure ci-dessus.
Mon code étant pourri, je vous l'épargne
Cordialement,
Dramoust
Bonsoir Dramoust,
bonsoir le forum,
si j'ai bien compris..., un petit bouton rouge à cliquer...
Private Sub cmdGO_Click()
'
iRow = Range("A" & Rows.Count).End(xlUp).Row
'
For x = 1 To iRow
If x = 1 Then
Cells(x, 4) = Cells(x, 3)
Else
If Cells(x, 2) <> Cells(x - 1, 2) Then
Cells(x, 4) = Cells(x, 3)
Else
Cells(x, 4) = IIf(Cells(x, 1) <> Cells(x - 1, 1), Cells(x - 1, 4) + 1, Cells(x - 1, 4))
End If
End If
Next
'
End SubA+
bonsoir,
s'il vous plait, pouvez vous me mettre le lien ou poser les questions
car cela fait une heure que je cherche pour poser une question
cordialement.
Salut Amialbert,
quand la page du forum s'ouvre, tu as un bouton 'Nouveau' en haut à gauche!
A+
curulis57 a écrit :Salut Amialbert,
quand la page du forum s'ouvre, tu as un bouton 'Nouveau' en haut à gauche!
A+
curulis57 a écrit :Bonsoir Dramoust,
bonsoir le forum,
si j'ai bien compris..., un petit bouton rouge à cliquer...
Private Sub cmdGO_Click() ' iRow = Range("A" & Rows.Count).End(xlUp).Row ' For x = 1 To iRow If x = 1 Then Cells(x, 4) = Cells(x, 3) Else If Cells(x, 2) <> Cells(x - 1, 2) Then Cells(x, 4) = Cells(x, 3) Else Cells(x, 4) = IIf(Cells(x, 1) <> Cells(x - 1, 1), Cells(x - 1, 4) + 1, Cells(x - 1, 4)) End If End If Next ' End Sub
A+
Bonsoir Curulis57,
Merci beaucoup, cela marche du tonnerre. Manque plus qu'à l'appliquer à mon fichier original.
Encore merci de la rapidité de la réponse et bravo pour la qualité du code simple et compréhensible.
Cordialement,
Dramoust.