[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
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
Dernière édition: