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

  • Initiateur de la discussion Initiateur de la discussion roulio80
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

roulio80

XLDnaute Nouveau
[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
 
Dernière édition:
Re : appliquer un code sur une colonne donnée et un nombre de lignes défini

Bonjour roulio80
Essayez en remplaçant
Code:
[COLOR="DarkSlateGray"]If Target.Address = "$F$3" And Target.Count = 1 Then[/COLOR]
par
Code:
[COLOR="DarkSlateGray"]If Target.Count = 1 And Not Intersect(Target, Range("$F$3:$F$103")) Is Nothing Then[/COLOR]
ROGER2327
 
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 .....🙁
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
482
Retour