Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel PB d'écrirure

PB d'écrirure

1 réponse
Avatar
Crel
bonjour, cette proc ne fonctionne pas, cela vient de l'écriture de ma
variable.

Sub AJOUTER()
mavar = Range("a" & ActiveCell.Row).Select
Select Case MsgBox("Voulez-vous ajouter un nom au dessus de celui de &
mavar & , vbQuestion + vbYesNo, "Ajouter un
nom ?")
Case vbYes
AJOUTER

Case Else
Exit Sub
End Select

End Sub
Merci beaucoup.
Patrick
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Patrick
Je suis vraiment trop bêta.
Merci beaucoup.
Patrick.

-----Message d'origine-----
Bonjour,

Essaie avec :

mavar = Range("a" & ActiveCell.Row).value

au lieu de

mavar = Range("a" & ActiveCell.Row).Select



"Crel" a écrit dans le
message de

news:%
bonjour, cette proc ne fonctionne pas, cela vient de
l'écriture de


ma
variable.

Sub AJOUTER()
mavar = Range("a" & ActiveCell.Row).Select
Select Case MsgBox("Voulez-vous ajouter un nom au
dessus de


celui de &
mavar & , vbQuestion +
vbYesNo,


"Ajouter un
nom ?")
Case vbYes
AJOUTER

Case Else
Exit Sub
End Select

End Sub
Merci beaucoup.
Patrick




.