Intitulé de cellule

Bonjour,
je viens vers vous aujourd'hui pour le problème suivant:
je crée une variable i, puis lorsque je l'insère dans le numéro de colonne d'une cellule cela ne fonctionne pas. Pourriez-vous m'aider?

Code:

---

1 2 3 4 5 6

Dim i As Integer i = Range("L1").Value Range("J3").Select Selection.AutoFill Destination:=Range("J3:Ji"), Type:=xlFillDefault Range("J3:Ji").Select End Sub

---

merci

Essaye :

Code:

---

1 2 3 4 5 6 7

Dim i As Integer i = Range("L1").Value Range("J3").Select Selection.AutoFill Destination:=Range("J3:J" & i), Type:=xlFillDefault Range("J3:J" & i).Select End Sub

---

Bonjour et bienvenue au forum !
En complément de ce que te proposes Oudouner :
Attention à ne pas confondre des variables/objets et le texte/nombre qu'ils représentent. Exemple :

Code:

---

1 2 3 4

Dim maVar As String maVar = "ceci est du texte" MsgBox maVar 'affiche le texte : "ceci est du texte" MsgBox "maVar" 'affiche le texte : "maVar"

---

Donc avec :

Code:

---

Range("J3:Ji")

---

Excel comprend que tu veux aller de la cellule de nom J3 à la cellule de nom Ji. Or aucune cellule ne s'appelle Ji (à moins que tu en es nommée une Ji).
D'autre part, évite au maximum d'utiliser Select/Activate/ActiveCell/Selection et leurs copains :

Code:

---

1 2 3 4 5

Dim i As Integer i = Range("L1").Value Range("J3").AutoFill Destination:=Range("J3:J" & i), Type:=xlFillDefault Range("J3:J" & i).Select ' <---------------------- à quoi ça sert? < ------------------------ End Sub

---

Merci Oudouner mais cela ne fonctionne pas plus erreur d’exécution 1004!!

Quelle est la valeur de ta variable i quand tu exécute ton code ?
A quelle ligne ton erreur se déclenche ?

Bonjour,

en dehors d'une présentation digne de ce nom expliquant clairement le besoin
et de baliser le code conformément aux règles de ce forum,
commencer déjà par vérifier ce que vaut la variable i, histoire de vérifier si la Logique est respectée !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Pour être plus précis:

i =NBVAL(A:A)

soit 153900

Mon objectif

Je crée une formule en L1 =SI(E3=E4;J3+1;1)
Mon objectif est le suivant je désire copier cette formule dans la colonne L autant de fois qu'il y a de valeur dans la colonne A dans laquelle il peut y avoir de 10 à 160 000 valeurs
J'espère être clair
Merci pour votre patience

Dimensionne i comme Long et non pas comme Integer. En effet, tu dépasses la capacités de l'Integer, ici. Un peu de lecture : http://silkyroad.developpez.com/VBA/LesVariables/#LII-C ;)

Code:

---

1 2 3 4

Dim i As Long i = Range("L1").Value Range("J3").AutoFill Destination:=Range("J3:J" & i), Type:=xlFillDefault End Sub

---

Merci beaucoup, ça fonctionne!!!