Discussion :

[carosteph]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[riaolle]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[carosteph]

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

[Invité]

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

[Marc-L]

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, …

[carosteph]

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

[riaolle]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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