Discussion :

[Kaytilou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Alex020181]

Bonjour,

Pour reporter la valeur d'un msgbox dans une cellule il vous faut ajouter cette dernière ligne de code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11


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("E4") = Nom

[Kaytilou]

Bonsoir
Merci Alex020181, cela fonctionne
Bonne soirée et prends soin de vous et des votres dans cette période de confinement