Désolé mais j'ai essayé et ca ne marche pas. En fait, mon problème, c'est pour lui dire qu'il sélectionne la cellule calculé par I, c'est à dire un truc comme Activesheet.range(I).Select, quelque chose comme ca, pour qu'il me l'incrémente de E6 à E65526.
S tu as une réponse, merci.
-------------------------------
Réponse au message :
-------------------------------
pour sélectionner une cellulle essai plutôt quelque chose de ce genre
activesheet.range("E6:E14").select
ou aussi avec une variable Ex :
dim li_i as integer
dim ls_range as string
I = 6
ls_range = "E" & I & ":E" & (I+8)
activesheet.range(ls_range).Select
-------------------------------
Réponse au message :
-------------------------------
J'ai un problème quand je veux sélectionner ma cellule (I)!
Voici le petit prog:
Sub Insérer ()
I=E6
If I <> 0 Then
I= I+8
Range I. Select [Ca ne fonctionne pas!]
Selection.PasteSpecialPaste :=x1 Paste Values, Operation :=x1 Non, SkipBlanks _ := False, Transpose := False
Else
Range I. Select [Ca ne fonctionne pas!]
Selection.PasteSpecialPaste :=x1 Paste Values, Operation :=x1 Non, SkipBlanks _ := False, Transpose := False
End If
End Sub
|