alexletiti
XLDnaute Nouveau
bonjour,
j'ai un programme et je voudrais que excel vérifie avant tout si la valeur existe.
Voici le programme :
Public Sub prog1()
nom = InputBox('Donner le nom de l'utilisateur')
For Each x In Range('A:A')
If IsEmpty(x) Then
Exit For
End If
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
J'espère que vous pourrez m'aider.
a+
j'ai un programme et je voudrais que excel vérifie avant tout si la valeur existe.
Voici le programme :
Public Sub prog1()
nom = InputBox('Donner le nom de l'utilisateur')
For Each x In Range('A:A')
If IsEmpty(x) Then
Exit For
End If
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
J'espère que vous pourrez m'aider.
a+