[VBA] - Probleme de boucle

Résolu/Fermé

Jeyjey1 - 19 nov. 2007 à 09:24
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 20 nov. 2007 à 14:14

Bonjour,

J'ai créer le code ci dessous qui me permet suivant que les 4 premiers caracteres d'une cellule soient egaux aux 4 autres de la cellule du dessus, si c'est le cas des informations s'affichent dans une cellule vide
Le problème c'est que ça fonctionne pour qu'une ligne.Pourriez vous me dire comment boucler le code sur toutes les lignes
Merci

Sub MarqueLesDoublons()

If Left(C16, 5) = C15 Then
Range("Y16").Value = "MT en " & Range("H16").Value & " " & Range("D16").Value & " " & "le " & Range("W16").Value & " " & "par " & Range("M16").Value & " " & Range("V16").Value

End If
End Sub

A voir également:

[VBA] - Probleme de boucle
Redmi note 10 redemarre en boucle - Forum Xiaomi
Erreur 1004 vba ✓ - Forum VB / VBA
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions
Vba attendre 1 seconde ✓ - Forum VB / VBA

7 réponses

Réponse 1 / 7

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
19 nov. 2007 à 13:52

Bonjour,

En lui disant "s'il te plaît" peut être ...

Non plus sérieusement, pour qu'un code s'exécute, il faut un évènement déclencheur ... tu nous donnes trop peu d'informations pour que l'on puisse d'aider. Quand veux-tu que ta procédure MarqueLesDoublons s'éxécute ??? Quelle est la plage à parcourir ??? etc ...

;o)

Polux

Réponse 2 / 7

christian
19 nov. 2007 à 12:51

et si tu remplaces la boucle IF.... ENDIF par une boucle DO WHILE ..... ENDDO ?

Réponse 3 / 7

Jeyjey1
19 nov. 2007 à 13:19

En fait ce qui m'embete c'est les valeurs, comment lui dire juste en disant qu on se trouve dans la colonne C et que dans la colonne Y on doit retrouver un tas d'info

Réponse 4 / 7

Jeyjey1
19 nov. 2007 à 14:05

En vous remerciant d'avance pour votre aide
ma plage est la colonne C5 à C700, et dans cette plage je dois trouver des doublons mais uniquement sur les 5 premiers caractères, si je tombe sur un doublon la colonne "Y" doit m'afficher des infos (sur la ligne des doublon)

Maintenant j'ai un code, mais il ne tourne pas, voir ci dessous

For Each Ligne In Worksheets("Tool_Dossiers").Range("C5:C" & Cells(Columns(1).Cells.Count, 1).End(xlUp).Row)
NoLigne = Ligne.Row
If Left(Cells(NoLigne, 3), 5) = Cells(NoLigne - 1, 3) Then
Range("Y" & NoLigne).Value = "MT en " & Range("H" & NoLigne).Value & " " & _
Range("D" & NoLigne).Value & " " & "le " & Range("W" & NoLigne).Value & " " & _
"par " & Range("M" & NoLigne).Value & " " & Range("V" & NoLigne).Value
End If
Next

Merci à tous

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
19 nov. 2007 à 15:59

Si ta plage est toujours la même, c'est à dire de C5 à C700, je te propose ceci :

Dim cel1 As String
Dim cel2 As String
Dim i As Long

With WorkSheets("Tool_Dossiers")
     For i = 5 to 700
          cel1 = "C" & i
          cel2 = "C" & i - 1
          If .Range(cel1).Value = .Range(cel2).Value Then
               .Range("Y" & i).Value = "MT en " & .Range("H" & i).Value & " " & _ 
                                     .Range("D" & i).Value & " " & "le " & .Range("W" & i).Value & " " & _ 
                                    "par " & .Range("M" & i).Value & " " & .Range("V" & i).Value
         End If
     Next i
End With

Je ne suis pas un spécialiste d'Excel et je n'ai pas testé ...

;o)

Polux

Réponse 6 / 7

jeyjey1
20 nov. 2007 à 11:28

Merci beaucoup Polux, ça m'a mis sur la voie, Merci encore

Réponse 7 / 7

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
20 nov. 2007 à 14:14

Bonjour,

De rien Jeyjey1, c'est avec plaisir ...

Bon courage pour la suite

;o)

Polux

Discussions similaires

Mon pc s'allume et s'éteint en boucle

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

VBA : Range avec références variables..

programme qui n'affiche pas le mot secret

Discussions similaires

Newsletters