G
Guillaume
Guest
Re-Bonjour,
J'essaye d'écrire une macro qui selectionne des données et les recopient dans une autre colonne mais j'ai un problème pour éliminer les données "redondantes". Pouvez vous m'aider ?
Merci beaucoup par avance
Guillaume
Voici ma macro (Mefci à Hervé pour le début de la macro) :
Public Sub Foot()
Dim c As Range
Dim ligne As Integer, colonne As Integer, a As Integer
'initialisation de la variable ligne
ligne = 2
a = 2
'pour chaque cellule de la colonne C de la ligne 1 à la derniere non vide
For Each c In Range("c1:c" & Range("c65000").End(xlUp).Row)
'Si dans la cellule on trouve "0 - 0"
If Not c.Find("0 - 0") Is Nothing Then
'alors pour colonne = 2 jusqu'à 4
For colonne = 2 To 4
' a la cellule (2,colonne+5) on place les valeurs de la ligne contenant "0 - 0"
Cells(ligne, colonne + 5) = Cells(c.Row, colonne)
Cells(a, 11) = Cells(c.Row, colonne)
If (colonne = 2 Or colonne = 4) Then
a = a + 1
End If
Next colonne
'incrémentation de la ligne, sinon on écrit toujours sur la même
ligne = ligne + 1
End If
Next c
End Sub
J'essaye d'écrire une macro qui selectionne des données et les recopient dans une autre colonne mais j'ai un problème pour éliminer les données "redondantes". Pouvez vous m'aider ?
Merci beaucoup par avance
Guillaume
Voici ma macro (Mefci à Hervé pour le début de la macro) :
Public Sub Foot()
Dim c As Range
Dim ligne As Integer, colonne As Integer, a As Integer
'initialisation de la variable ligne
ligne = 2
a = 2
'pour chaque cellule de la colonne C de la ligne 1 à la derniere non vide
For Each c In Range("c1:c" & Range("c65000").End(xlUp).Row)
'Si dans la cellule on trouve "0 - 0"
If Not c.Find("0 - 0") Is Nothing Then
'alors pour colonne = 2 jusqu'à 4
For colonne = 2 To 4
' a la cellule (2,colonne+5) on place les valeurs de la ligne contenant "0 - 0"
Cells(ligne, colonne + 5) = Cells(c.Row, colonne)
Cells(a, 11) = Cells(c.Row, colonne)
If (colonne = 2 Or colonne = 4) Then
a = a + 1
End If
Next colonne
'incrémentation de la ligne, sinon on écrit toujours sur la même
ligne = ligne + 1
End If
Next c
End Sub