Macro VBA excel - équivalent d'autofill
Résolu
j.l.b
-
pilas31 Messages postés 1825 Date d'inscription Statut Contributeur Dernière intervention -
pilas31 Messages postés 1825 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Voici mon problème :
J'ai réalisé une macro par en enregistrement. A moment donné, j'ai besoin d'effectuer un autofill. Seulement, mon nombre de lignes varie à chaque fois et l'autofill conserve la valeur de l'enregistrement. J'ai donc écris quelques lignes permettant de remplacer cet autofill :
Dim i As Integer
Range("E2").Select
For i = 1 To 5000
If Range("D" & i).Value <> "" Then
Range("E" & i).Value = Range("E2").Formula
Else
Range("E" & i).Value = ""
End If
Next i
La cellule "E2" est une formule : =SI(D2>'Dates Séléct.'!A:A;"OK";"")
Mon problème est que je souhaite que la cellule "E3" soit égale à SI(D3>'Dates Séléct.'!A:A;"OK";""),"E4"=SI(D4>'Dates Séléct.'!A:A;"OK";"") etc etc... Or actulement E3, E4... sont toutes égales à SI(D2>'Dates Séléct.'!A:A;"OK";"")
Je pense que le problème se trouve au niveau de "Range("E2").Formula"...
Merci d'avance pour votre aide!
Voici mon problème :
J'ai réalisé une macro par en enregistrement. A moment donné, j'ai besoin d'effectuer un autofill. Seulement, mon nombre de lignes varie à chaque fois et l'autofill conserve la valeur de l'enregistrement. J'ai donc écris quelques lignes permettant de remplacer cet autofill :
Dim i As Integer
Range("E2").Select
For i = 1 To 5000
If Range("D" & i).Value <> "" Then
Range("E" & i).Value = Range("E2").Formula
Else
Range("E" & i).Value = ""
End If
Next i
La cellule "E2" est une formule : =SI(D2>'Dates Séléct.'!A:A;"OK";"")
Mon problème est que je souhaite que la cellule "E3" soit égale à SI(D3>'Dates Séléct.'!A:A;"OK";""),"E4"=SI(D4>'Dates Séléct.'!A:A;"OK";"") etc etc... Or actulement E3, E4... sont toutes égales à SI(D2>'Dates Séléct.'!A:A;"OK";"")
Je pense que le problème se trouve au niveau de "Range("E2").Formula"...
Merci d'avance pour votre aide!
A voir également:
- Macro VBA excel - équivalent d'autofill
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Équivalent coco - Accueil - Réseaux sociaux
- Word et excel gratuit - Guide
- Equivalent coco - Accueil - Réseaux sociaux
