Bonjour les exceliens, nes..............
Voila j'utilise ce code pour rentrer des noms sans doublons qui fonctionne du tonnerre . Merci a son créateur
nom = "toto"
If nom = "" Then Exit Sub
msg = MsgBox("Voulez-Vous Ajouter : " & nom, vbYesNo, "AVERTISSEMENT")
If msg = 6 Then
L = ActiveSheet.Range("a12", "a19").End(xlUp).Row + 1
ActiveSheet.Range("a" & L).Value = nom
For i = Range("a65536").End(xlUp).Row + 1 To 2 Step -1
If Range("a" & i) = Range("a" & i - 1) Then
MsgBox "Doublon Détecté et Détruit : " & Range("a" & i - 1).Value, vbCritical, "AVERTISSEMENT"
Range("a" & i).Clear
End If
Next
On Error Resume Next
End If
Issue de ce code je ne parvient pas a définir la plage concernée . Effectivement , je souhaite ecrire les données a partir de la ligne 12 jusqu’à la ligne 19.
Et ensuite utiliser ce code sur des plages mais différentes c'est a dire pouvoir écrire sur la plage A12 a A19 et une fois pleine passer a la plage A24 a A32
merci a tous de vos suggestions et idées
Bien Amicalement
GHISLAIN
Voila j'utilise ce code pour rentrer des noms sans doublons qui fonctionne du tonnerre . Merci a son créateur
nom = "toto"
If nom = "" Then Exit Sub
msg = MsgBox("Voulez-Vous Ajouter : " & nom, vbYesNo, "AVERTISSEMENT")
If msg = 6 Then
L = ActiveSheet.Range("a12", "a19").End(xlUp).Row + 1
ActiveSheet.Range("a" & L).Value = nom
For i = Range("a65536").End(xlUp).Row + 1 To 2 Step -1
If Range("a" & i) = Range("a" & i - 1) Then
MsgBox "Doublon Détecté et Détruit : " & Range("a" & i - 1).Value, vbCritical, "AVERTISSEMENT"
Range("a" & i).Clear
End If
Next
On Error Resume Next
End If
Issue de ce code je ne parvient pas a définir la plage concernée . Effectivement , je souhaite ecrire les données a partir de la ligne 12 jusqu’à la ligne 19.
Et ensuite utiliser ce code sur des plages mais différentes c'est a dire pouvoir écrire sur la plage A12 a A19 et une fois pleine passer a la plage A24 a A32
merci a tous de vos suggestions et idées
Bien Amicalement
GHISLAIN