alexletiti
XLDnaute Nouveau
bonjour
Je souhaite insérer à ce code la formul qui me permet de dire si ... appartient à alors et si ... n'appartient pas à alors
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
Je souhaite insérer à ce code la formul qui me permet de dire si ... appartient à alors et si ... n'appartient pas à alors
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