VBA Rappel cellule SELECT

[yusukens]

Bonjour

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

j'ai une variable qui va chercher la cellule B2 :

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

 

[phlaurent55]

Re : VBA Rappel cellule SELECT

Salut yusukens,
et si tu utilisait Range("B2").Value au lieu de Range("B2").Select
au cas où il s'agirait de prendre la valeur de B2

 

[yusukens]

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 :

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.

 

[ninbihan]

Re : VBA Rappel cellule SELECT

Bonjour,

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

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

 

[yusukens]

Re : VBA Rappel cellule SELECT

salut ninbihan
Super,
ça marche maintenant.

merci encore.