appliquer un code sur une colonne donnée et un nombre de lignes défini

[roulio80]

[RESOLU]appliquer un code sur une colonne donnée et un nombre de lignes défini

bonjour, je suis en train de faire ma thèse et doit pour cela remplir un questionnaire téléphonique à +/- 100 personnes. Certaines questions ont plusieurs réponses possibles dans une liste. j'ai déja trouvé grace à vous un code permettant un choix multiple dans une liste déroulante :

If Target.Address = "$F$3" And Target.Count = 1 Then
p = InStr(Target.Offset(0, 1), Target.Value)
If p > 0 Then
Target.Offset(0, 1) = Left(Target.Offset(0, 1), p - 1) & _
Mid(Target.Offset(0, 1), p + Len(Target.Value) + 1)
If Right(Target.Offset(0, 1), 1) = "+" Then
Target.Offset(0, 1) = Left(Target.Offset(0, 1), Len(Target.Offset(0, 1)) - 1)
End If
Else
If Target.Offset(0, 1) = "" Then
Target.Offset(0, 1) = Target
Else
Target.Offset(0, 1) = Target.Offset(0, 1) & "+" & Target.Value
End If
End If
End If



Le probleme est que ça fonctionne pour une ligne (donc pour une personne)
je cherche un moyen d'appliquer ce code à une colonne
ex : If Target.Address = "$F$3 à 103" And Target.Count = 1......
Mais je ne sais pas quelle syntaxe utiliser ???
Merci de votre aide précieuse
Julien Bourel

 

[ROGER2327]

Re : appliquer un code sur une colonne donnée et un nombre de lignes défini

Bonjour roulio80

Essayez en remplaçant

[COLOR="DarkSlateGray"]If Target.Address = "$F$3" And Target.Count = 1 Then[/COLOR]

par

[COLOR="DarkSlateGray"]If Target.Count = 1 And Not Intersect(Target, Range("$F$3:$F$103")) Is Nothing Then[/COLOR]

ROGER2327

 

[roulio80]

Re : appliquer un code sur une colonne donnée et un nombre de lignes défini

Merci beaucoup,
malheureusement, cela ne fonctionne pas, "erreur de compilation" et je n'y connait pas grand chose....

J'ai essayé en dupliquant le code et en changeant le numéro de ligne à chaque fois mais refuse de m'en mettre plus de 74 apres "erreur : procedure trop grande" 😡

si quelqu'un à une idée .....🙁

 

[roulio80]

Re : appliquer un code sur une colonne donnée et un nombre de lignes défini

Ah et ben si ça marche !!!!
j'ai refais une tentative avec votre proposition et ça marche nickel !!
Merci beaucoup pour votre aide !