pb de selection avec plusieurs variables

[OFFSET]

Bonjour,

J'ai un pb dans ma syntaxe pour sélectionner en même temps plusieurs de mes variables.

Pourriez-vous m'indiquer la bonne méthode? SVP
Ci-dessous mon exemple:

Range(Cell & Cell.Offset(0, 1) & Worksheets("Feuil1").Range("A" & myVar + 1)& Worksheets("Feuil1").Range("A" & myVar + 1).Offset(0, 1)).Select

Je reste à votre disposition pour plus d'informations.

Merci d'avance pour votre aide.

 

[Pierrot93]

Re : pb de selection avec plusieurs variables

Bonjour Offset,

difficile de t'aider avec ce que tu nous donnes... Il faudrait voir la partie du code permettant l'initialisation des variables, et savoir précisément ce que tu veux faire.... Un petit fichier en pièce jointe avec résultat attendu ne serait pas de trop...

bon après midi
@+

 

[OFFSET]

Re : pb de selection avec plusieurs variables

Bonjour Pierrot,

Voilà mon code complet. Tout fonctionne à l'exception de la dernière étape, à cause de la ma séléction qui est mal formulée:

Sub TG()

Dim Cell As Range
Dim ENV As Range

Worksheets("Feuil1").Select
Range("A65536").End(xlUp).Select
Range(Selection, "A2").Select


Set ENV = Selection

With Sheets("Feuil1")

For Each Cell In ENV
On Error GoTo GestionDesErreurs
myVar = Application.WorksheetFunction _
.Match(Cell, Worksheets("Feuil2").Range("A2:A200"), 0)

Worksheets("Feuil2").Range("A" & myVar + 1).Offset(0, 1) = Cell.Offset(0, 1)

'selection à faire pour mettre la couleur

Range(Cell & Cell.Offset(0, 1) & Worksheets("Feuil2").Range("A" & myVar + 1) & Worksheets("Feuil2").Range("A" & myVar + 1).Offset(0, 1)).Select

Selection.Interior.ColorIndex = 15


On Error GoTo 0
Suite:
Next
End With

GestionDesErreurs:
If Err <> 0 Then
Err = 0
Resume Suite
End If

End Sub



En espérant que ce soit plus clair.

Merci d'avance

 

[Pierrot93]

Re : pb de selection avec plusieurs variables

Re,

Aarf... en l'état je ne vois pas trop quelle cellule tu veux atteindre et selon quel critère... Que comptes tu récupérer sur la feuille 2 ??

 

[OFFSET]

Re : pb de selection avec plusieurs variables

Je récupère le cell.offset(0,1) sur ma feuil2, en matchant cell avec les cellules de la colonne A de ma feuille2, mais tout celà fonctionne mon seul problème concerne ma sélèction avant de mettre la couleur que je n'arrive pas à écrire correctement:

'selection à faire pour mettre la couleur

Range(Cell & Cell.Offset(0, 1) & Worksheets("Feuil2").Range("A" & myVar + 1) & Worksheets("Feuil2").Range("A" & myVar + 1).Offset(0, 1)).Select

Selection.Interior.ColorIndex = 15

 

[Pierrot93]

Re : pb de selection avec plusieurs variables

Re

mets un tout petit fichier en pièce jointe avec le minimum permettant de voir le problème posé, là en l'état je ne sais comment t'aider....

 

[OFFSET]

Re : pb de selection avec plusieurs variables

Ok la feuil3 réprésente le résultat voulu.
En espèrant que tu t'y retrouves dans mes conditions.

Merci d'avance

 

[Pierrot93]

Re : pb de selection avec plusieurs variables

Re,

essaye avec cette ligne de code, enfin si j'ai bien compris... pas sur...

ActiveCell.Resize(, 2).Interior.ColorIndex = 15

@+

 

[OFFSET]

Re : pb de selection avec plusieurs variables

Merci Pierrot mais finalement je l'ai fait variables par variables.

A+ offset