NicolasBB
XLDnaute Nouveau
Bonjour à toutes et à tous,
J'aurais bien besoin d'un petit coup de main pour une manipulation que je n'arrive pas à réaliser... J'utilise une macro pour boucler sur toutes les lignes d'une colonne A et afficher les valeurs correspondantes de la colonne B dans un fichier texte. J'ai donc ca :
J'ai donc en sortie dans un fichier texte la liste de toutes mes valeurs contenues dans la colonne B
Je souhaiterais pouvoir faire la même chose, mais en faisant en sorte que la macro vérifie pour chaque valeur de la colonne A, s'il existe un ou plusieurs doublons dans cette même colonne, puis si c'est le cas, faire en sorte que la macro ne créé qu'une seule ligne dans le fichier texte avec les valeurs associées de la colonne B.
Bon je joins également un fichier excel qui sera surement plus clair
merci à toutes et à tous par avance en tout cas !
J'aurais bien besoin d'un petit coup de main pour une manipulation que je n'arrive pas à réaliser... J'utilise une macro pour boucler sur toutes les lignes d'une colonne A et afficher les valeurs correspondantes de la colonne B dans un fichier texte. J'ai donc ca :
VB:
Sub colonne()
Dim Cible As Integer, x As Integer, y As Integer
Dim Resultat As String
Dim Cell As Range
x = Range("A65536").End(xlUp).Row
Cible = FreeFile
Open "C:\test\test.txt" For Append As #Cible
For Each Cell In Range("A2:A" & x)
Resultat = ""
Resultat = Cell.Offset(0, 1)
Print #Cible, Resultat
Next Cell
Close #Cible
End Sub
J'ai donc en sortie dans un fichier texte la liste de toutes mes valeurs contenues dans la colonne B
Je souhaiterais pouvoir faire la même chose, mais en faisant en sorte que la macro vérifie pour chaque valeur de la colonne A, s'il existe un ou plusieurs doublons dans cette même colonne, puis si c'est le cas, faire en sorte que la macro ne créé qu'une seule ligne dans le fichier texte avec les valeurs associées de la colonne B.
Bon je joins également un fichier excel qui sera surement plus clair
merci à toutes et à tous par avance en tout cas !
Pièces jointes
Dernière édition: