Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Utiliser le contenu d'une cellule pour selctioner une cellule dans vba

  • Initiateur de la discussion Initiateur de la discussion timon
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

T

timon

Guest
Bonjour,

je voudrais modifier une cellule à l'aide de vba et je voudrais que la cellule à modifier soit celle renseigner dans une cellule fixe de mon classeur.

je ne sais pas comment m'y prendre si quelqu'un peut m'aider je serait ravi!

Merci d'avance.

Code:
Sub validcdg()

Dim val As Range
val = Sheets("Afficher-Valider").Range("U34")


    Sheets("Récap demande").Select
    Range("val").Select
    ActiveCell.FormulaR1C1 = "ok"
 
Re : Utiliser le contenu d'une cellule pour selctioner une cellule dans vba

Merci bien parfait ça fonctionne, il fallait aussi que je l'appelle AS String et non Range.
Pour ce que cela intéresse voici le code :

Code:
Dim val As String

val = Sheets("Afficher-Valider").Range("T34")


    Sheets("Récap demande").Select
    Range(val).Select
    ActiveCell.FormulaR1C1 = "ok"
 
Re : Utiliser le contenu d'une cellule pour selctioner une cellule dans vba

Bonjour,

"val" étant aussi une fonction native de vba, il est déconseillé de l'utiliser comme nom de variable ou nom d'objet ...

bonne journée
@+
 
Re : Utiliser le contenu d'une cellule pour selctioner une cellule dans vba

Bonjour Pierrot, Timon,

@ Pierrot : en tenant compte de ta très bonne remarque

@ Timon : Pourquoi faire des sélect juste pour affecter une valeur ?

Code:
Sub validcdg()
 
Dim Valeur As string 
 Valeur = Sheets("Afficher-Valider").Range("U34")
 Sheets("Récap demande").Range(Valeur) = "ok"

end sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…