Affecter une cellule à un message box
Bonjour,
Je cherche à affecter une cellule à un msg box. Le but lorsque je clique sur la macro, et que je rentre les informations du message, cela aille directement compléter la cellule e4 et ensuite faire fonctionner la macro.
Peut être qu'il faut passer par un formulaire VBA et non simplement compléter des cellules.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| Sub RechercherContact()
Dim Ligne As Integer
Dim Nom As String
Nom = InputBox("Veuillez Saisir le prénom et le nom de l'agent administratif")
If Nom = "" Then
MsgBox "Vous n'avez pas saisi le prénom et le nom de l'agent administratif !"
Exit Sub
End If
Range("A4:D4,F4:M4") = Empty
'On commence à la ligne 7 de la colonne Identifiant (jusqu'à) la fin du tableau et on revient à la dernière ligne écrite
For Ligne = 7 To Range("a999999").End(xlUp).Row
f Range("e" & Ligne) = Range("e4") Then
Range("a4") = Range("a" & Ligne)
Exit Sub
End If
Next Ligne
End Sub |
Merci pour votre aide et surtout prenez soin de vous, prenez soin de vos proches ! Tout seul on va plus vite, ensemble on va plus loin. C'est ensemble que nous irons plus loin. C'est ensemble que nous vaincrons ce virus !
