![]() |
|
Forum
|
|
|
#2 (permalink) |
|
XLDnaute Accro
Date d'inscription: février 2005
Localisation: Maurecourt
Version Excel : Excel 2003 (PC)
Messages: 1 538
|
Bonjour,
Oui c'est possible : Dim koa as integer For each koa in selection If koa.value='Bidul' then ... rnd if next koa ++ creepy
__________________
|
|
|
|
|
|
#3 (permalink) |
|
Guest
Messages: n/a
|
Bonjour et merci de ta réponse.
Je n'arrive pas à insérer e code dans mon prog. voici mon prog. Public Sub prog1() nom = InputBox('Donner le nom de l'utilisateur') For Each x In Range('A:A') n = n + 1 plage = n if nom appartient range('A:A') If nom = x Then x = x.Offset(0, 1) MsgBox 'l'utilisateur ' & nom & ' appartient au groupe ' & x End If ElseIf nom n'appartient pas a range('A:A') MsgBox 'cet utilisateur n'existe pas !!' End If Next End Sub voila, c'est ce qui se trouve en rouge qui me pose problème. Merci |
|
|
| ANNONCES | |
![]() |
| Liens sociaux |
| Outils de la discussion | |
|
|