Bonsoir,
J'ai avancé un peu dans mes recherches, après plusieurs petits test/exos je butte sur un simple bout de code pour l'instant.
J'ai une colonne B avec des adresses mac sur 1500 lignes, une colonne A avec les noms des machines, une colonne D avec les adresses mac récupérées de mon switch et je souhaite copier les adresses mac égales aux adresses mac de la colonne B sur la colonne F
Voici mon code :
Code :
- Sub Bouton1_QuandClic()
- Dim Nligne As Integer
- Dim Ncolonne As Integer
- For Nligne = 2 To 1500
- For Ncolonne = 4 To 4
- If Cells(Nligne, "B" ) = Cells(Nligne, "D" ) Then
-
- Cells(Nligne, "A" ).Value = Cells(Nligne, "F" ).value
- End If
-
- Nligne = Nligne + 1
-
- Next Ncolonne
- Next Nligne
- MsgBox "Programme terminé"
- End Sub
|
Merci à vous pour cette aide
Message édité par matsu92 le 15-04-2008 à 17:07:59