Bonsoir ,
le code suivant est appliqué à une feuille qui constitue ma base de donnée , celle ci comporte sur la colonne A des noms , à chaque selection d'un nom celui ci est transporté vers une feuille nommée "RESEAU" dans la colonne B à partir de la cellule B21 et jusqu'a la cellule B100 , ceci par selection à chaque fois dans ma base de donnée , une fois que je remplit comptement la colonne B de ma feuille reseau , la selection suivante dans ma base de donnée place le nom choisi en tete de liste (celluleB 21 de ma feuille (RESEAU) et écrase donc le contenu de cellule 21 deja pleine et fait de meme par la suite pour toute les autres cellules à chaque selection dans la base de donnée , je souhaiterai que tout choix d'une selection dans la base de donnée soit envoyé vers une cellule libre , et si aucune cellule ne peut etre libre afficher le message :
"toutes les cellules sont pleines, veuillez liberer au moins une cellule) , vu mes faibles capacité en VB , je ne saurai remodeler le code suivant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A2:A500"), Target) Is Nothing And Target.Count = 1 Then
With Sheets("RESEAU")
.Range("B21") = IIf(.Range("B21") >= 100, 22, .Range("B21") + 1)
.Cells(.Range("B21"), 2) = Target.Value
End With
End If
End Sub
Toute aide serait la bienvenue , vous remerciant infiniment