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

VBA Rappel cellule SELECT

Créer une discussion

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 !

S'inscrire

yusukens

XLDnaute Occasionnel
Bonjour

Une question un peu idiote mais que je trouve pas la réponse.

j'ai une variable qui va chercher la cellule B2 :
Code: 
Dim CelluleB2
CelluleB2 = Range("B2").Select

plus bas du code j'aimerai Re-selectionner cette variable.
et c'est ici que je bloque.
j'ai testé plusieur méthode en vain :

voila ce que j'ai testé :

CelluleB2
Range (CelluleB2)
Range ("CelluleB2")
Range(CelluleB2).Select
Range("CelluleB2").Select
Set CelluleB2
ActiveCell (CelluleB2)
Cell (CelluleB2)
.
.
.

Merci de votre aide
 
Trier par date Trier par votes
Re : VBA Rappel cellule SELECT

En fait c'est pas pour prendre mais pour sélectionner la cellule.
Je vais mettre mon code pour mieu comprendre :
Code: 
Private Sub CommandButton10_Click()
Worksheets("BDD-DevisFacture").Activate
Dim Ligne2
Dim LigneCopierCherche
Dim LigneCopier
Dim LigneTitreColler
Dim ValeurMaxDF
Dim CelluleValeurMaxDF
[COLOR=green]'Copier la ligne 2 entièrement[/COLOR]
Ligne2 = Rows("2:2").Copy
[COLOR=green]'Rechercher la ligne ou on doit copier la ligne 2[/COLOR]
ValeurMaxDF = Application.WorksheetFunction.Max(Columns(1)) [COLOR=green]'Chercher la valeur MAX[/COLOR]
[COLOR=red]CelluleValeurMaxDF = Columns(1).Find(ValeurMaxDF, LookAt:=xlWhole).End(xlDown).Offset(2, 0).Select[/COLOR] [COLOR=green]'Selectionner la ligne ou on doit coller[/COLOR]
[COLOR=green]'Coller la ligne2[/COLOR]
Rows(ActiveCell.Row).Select [COLOR=green]'Selectionner la ligne entière[/COLOR]
ActiveSheet.Paste [COLOR=green]'Coller la ligne 2[/COLOR]
[COLOR=green]'Effacer des cellules inutiles[/COLOR]
[COLOR=blue]Columns(1).Find(ValeurMaxDF, LookAt:=xlWhole).End(xlDown[/COLOR][COLOR=blue]).Offset(2, 0).[/COLOR][COLOR=black]Offset(2, 7).ClearContents[/COLOR]
[COLOR=blue]Columns(1).Find(ValeurMaxDF, LookAt:=xlWhole).End([/COLOR][COLOR=blue]xlDown).Offset(2, 0).[/COLOR][COLOR=black]Offset(2, 8).ClearContents[/COLOR]
[COLOR=blue]Columns(1).Find(ValeurMaxDF, LookAt:=xlWhole).End([/COLOR][COLOR=blue]xlDown).Offset(2, 0).[/COLOR][COLOR=black]Offset(2, 9).ClearContents[/COLOR]
[COLOR=blue]Columns(1).Find(ValeurMaxDF, LookAt:=xlWhole).End([/COLOR][COLOR=blue]xlDown).Offset(2, 0).[/COLOR][COLOR=black]Offset(2, 10).ClearContents[/COLOR]
[COLOR=green]'Augmenter de 1 la valeur[/COLOR]
[COLOR=blue]Columns(1).Find(ValeurMaxDF, LookAt:=xlWhole).End(xlDown).Offset(2, 0).[/COLOR][COLOR=black]Offset(2, 0).Select[/COLOR]
ActiveCell.Value = ValeurMaxDF + 1

Les textes verts sont les commentaires
Le Texte rouge représente ma cellule B2 de l'exemple
Les Texte Bleu représente la cellule active de la variable CelluleValeurMaxDF

J'aimerai changer tous les textes bleus par la variable.
voila le réel problème.
 
Vote positif 0 Vote négatif
Re : VBA Rappel cellule SELECT

Bonjour,

Tu dois pour faire cela déclarer ta variable en objet range
A tester:

Code: 
Private Sub CommandButton10_Click()
Worksheets("BDD-DevisFacture").Activate
Dim Ligne2
Dim LigneCopierCherche
Dim LigneCopier
Dim LigneTitreColler
Dim ValeurMaxDF
Dim CelluleValeurMaxDF as range
'Copier la ligne 2 entièrement
Ligne2 = Rows("2:2").Copy
'Rechercher la ligne ou on doit copier la ligne 2
ValeurMaxDF = Application.WorksheetFunction.Max(Columns(1)) 'Chercher la valeur MAX
set CelluleValeurMaxDF = Columns(1).Find(ValeurMaxDF, LookAt:=xlWhole).End(xlDown).Offset(2, 0) 'Selectionner la ligne ou on doit coller
'Coller la ligne2
Rows(ActiveCell.Row).Select 'Selectionner la ligne entière
ActiveSheet.Paste 'Coller la ligne 2
'Effacer des cellules inutiles
CelluleValeurMaxDF.Offset(2, 7).ClearContents
CelluleValeurMaxDF.Offset(2, 8).ClearContents
CelluleValeurMaxDF Offset(2, 9).ClearContents
CelluleValeurMaxDF).Offset(2, 10).ClearContents
'Augmenter de 1 la valeur
CelluleValeurMaxDF.Offset(2, 0).Select
ActiveCell.Value = ValeurMaxDF + 1
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
343
job75
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
584
sylvanu
S
  • Résolu(e)
XL 2013 Questions déjà traitée ici mais... (Insérer cellule dans nom de PDF)
Réponses
10
Affichages
521
StéphaneDeLà
S
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
571
Abi23
A
D
  • Résolu(e)
Microsoft 365 VBA Déplacement de la cellule active dans une ligne sélectionnée
Réponses
11
Affichages
535
danielco
D
  • Question Question
Microsoft 365 VBA : Problème de reconnaissance de variable avec fonction FIND
Réponses
2
Affichages
329
Dranreb
B
  • Question Question
XL 2016 VBA - Ajout de consignes dans le corps d'un mail
Réponses
3
Affichages
504
kiki29
R
  • Résolu(e)
XL 2010 vba excel : recherche concordance chaine texte dans cellule et données stockées dans un tablo (array)
Réponses
4
Affichages
356
Raynaud.JF
R
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
533
zendb
Z
  • Résolu(e)
Microsoft 365 VBA : formule Excel en variable
2
Réponses
24
Affichages
2 K
mapomme
T
  • Résolu(e)
Microsoft 365 Insérer une image DANS une cellule
Réponses
12
Affichages
2 K
Thomi
T
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
675
Lu76Fer
M
  • Résolu(e)
XL 2010 Code VBA pour Appeler un onglet avec texte + variable
Réponses
9
Affichages
1 K
Phil69970
D
  • Question Question
XL pour MAC [RESOLU]Cacher ou afficher colonnes, sauf colonne selectionné
Réponses
9
Affichages
1 K
Dudy
D
Y
  • Question Question
XL 2021 RechercheV avec 4 critères (vba)
Réponses
10
Affichages
1 K
YohanSC
Y
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
1 K
Corentin26270
C
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
1 K
crocrocro
C
A
  • Résolu(e)
XL 2016 Autofill Destination sur colonne adjacente
Réponses
3
Affichages
628
Aldonanou
A
N
  • Résolu(e)
XL 2021 erreur Vba
2
Réponses
21
Affichages
2 K
Oneida
  • Résolu(e)
XL 2013 RollOver sur cell sans boucle peut on modifier le lien avec une liste(array en VBA)
7 8 9
Réponses
122
Affichages
8 K
PMG
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…