Remplacer une partie de la macro Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
j
jef59
Jeune membre
Jeune membre
Messages : 46
Appréciation reçue : 1
Inscrit le : 19 décembre 2017
Version d'Excel : 2013 FR

Message par jef59 » 25 avril 2018, 12:24

Bonjour à tous,
j'aimerai changer une partie de la macro : au lieu de demander à l'utilisateur la ligne puis la colonne pour déterminer l'emplacement de la/les cellule(s) (suivant la macro), j'aimerai qu'il rentre directement le nom de la cellule (exemple : il rentre la cellule "A1"). J'ai 2 macros.

1re macro : il n'y a qu'une cellule j'aimerai que l'utilisateur rentre le nom de la cellule dans l'Inputbox
2eme macro : il y a 2 cellules donc 2 noms de cellules à rentrer dans le/les Inputbox

Voilà, merci d'avance :mrgreen:
Classeur1.xlsm
(12.21 Kio) Téléchargé 12 fois
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 5'872
Appréciations reçues : 76
Inscrit le : 27 avril 2007
Version d'Excel : 2010, 2000, Mac 2004, 2011

Message par Dan » 25 avril 2018, 13:26

Bonjour
1re macro : il n'y a qu'une cellule j'aimerai que l'utilisateur rentre le nom de la cellule dans l'Inputbox
Le code à modifier :
Sub gg()
Dim a As String
a = InputBox("Reference de la cellule")
Range(a).Select
End Sub
2eme macro : il y a 2 cellules donc 2 noms de cellules à rentrer dans le/les Inputbox
Sub effacer_contenu()
Dim a As String, b As String

On Error Resume Next
a = InputBox("reference de la premiere cellule à effacer")
b = InputBox("reference de la premiere cellule à effacer")

Range(a).ClearContents
Range(b).ClearContents

End Sub
Si ok et terminé merci de cloturer le fil en cliquant sur le petit v en haut à droite

Cordialement
1 membre du forum aime ce message.
@+ Dan ;)
j
jef59
Jeune membre
Jeune membre
Messages : 46
Appréciation reçue : 1
Inscrit le : 19 décembre 2017
Version d'Excel : 2013 FR

Message par jef59 » 25 avril 2018, 14:13

Merci Dan !! :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message