chinel
XLDnaute Impliqué
Salut tout le monde !
je désire faire une liste déroulante spéciale
dans un feuille (feuille1) j'ai des cellules que je dois remplir (a1,b20c13,... ou se trouveront les listes déroulantes) je voudrais bien que quand je mets des données dedans cela se met dans une autre colonne (f30) (chaque fois l'une en dessous de l'autre:f31,f32,f33,...) et que si je remets dans mes cellules initiales (a1,b20,c13,...)des données qui sont égales à (f30,f31,...) cela ne se met pas dans ceux-ci car elles sont déjà là
exemple (une partie du code que j'ai mis à vous de m'aider):
Dim Valeur As String
Valeur = Range("a1").Value
With Sheets("feuil1")
If .Range("f30") = "" Then
.Range("f30").Value = Valeur
Else
.Range("f65536").End(xlUp).Offset(1, 0).Value = Valeur
End If
End With
j'espère que je suis compréhensif car je débute en excel et vba !
merci de votre aide à tous !
je désire faire une liste déroulante spéciale
dans un feuille (feuille1) j'ai des cellules que je dois remplir (a1,b20c13,... ou se trouveront les listes déroulantes) je voudrais bien que quand je mets des données dedans cela se met dans une autre colonne (f30) (chaque fois l'une en dessous de l'autre:f31,f32,f33,...) et que si je remets dans mes cellules initiales (a1,b20,c13,...)des données qui sont égales à (f30,f31,...) cela ne se met pas dans ceux-ci car elles sont déjà là
exemple (une partie du code que j'ai mis à vous de m'aider):
Dim Valeur As String
Valeur = Range("a1").Value
With Sheets("feuil1")
If .Range("f30") = "" Then
.Range("f30").Value = Valeur
Else
.Range("f65536").End(xlUp).Offset(1, 0).Value = Valeur
End If
End With
j'espère que je suis compréhensif car je débute en excel et vba !
merci de votre aide à tous !