selectionner une suite de cellule

[hicham28]

Bonjour et merci d’avance
Mon problème est le suivant
J’ai une feuille de calcule Excel qui contient quatre cellule a remplir, et pour ça, j’aimerai que la sélection des cellules passe entre ces cellules, une après une (de G1, à C2, puis à F4, et finalement à F6)
Ca veux dire après effectuer la saisie de la cellule D1 et taper entrer (clavier) la cellule F3 sera sélectionner, et ainsi de suite pour les autres cellule.
Merci j’espère être claire
Merci encore une autre fois.



Sub factures()
If Range("G1").Value = 0 Then
xstop = MsgBox(" non valid")
ElseIf Range("C2").Value = 0 Then
xstop = MsgBox(" non valid")
ElseIf Range("F4").Value = 0 Then
xstop = MsgBox("non valid")
ElseIf Range("D4").Value = 0 Then
xstop = MsgBox("non valid")

Else
'Sélection de l'onglet factures_emis
Sheets("factures_emis").Select

'Copie des cellules I2 à N2
Range("I2:N2").Copy

'Sélection de la cellule en dessous du dernier enregistrement de la colonne A
Range("A1").Offset.End(xlDown).Offset(1, 0).Select

'Coller valeur
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

'Sélection de la zone en cours
Range("A1").CurrentRegion.Select


'Sélection de la cellule A1
Range("A1").Select

'Sélection de l'onglet Effet
Sheets("facture").Select

'préparation de lettre de change pour un nouveau enregistrement
Range("G1").ClearContents
Range("F4:F8").ClearContents
'Sélection de la cellule A1
Range("G1").Select

End If

End Sub

 

[skoobi]

Re : selectionner une suite de cellule

Bonjour,

quel est le rapport entre ce que tu demandes et le code que tu donnes?

 

[hicham28]

Re : selectionner une suite de cellule

Merci pour votre réponse, simplement c'est un code qui gère la même feuille ou je veux introduire la sélections des cellules.

 

[hicham28]

Re : selectionner une suite de cellule

svp, je suis bloqué