Etendre une formule à partir de la première cellule vide et jusqu'à une cellule fixe.

[cul5]

Bonjour à tous,

En préambule, je doit avouer que je suis débutant en VBA mais très bon ami avec goolge. Cependant, j'ai beau avoir fouillé dansdifférents forum, je n'ai pas trouvé de solution à mon problème.

Mon problème est donc le suivant: ma macro doit appliquer une formule à partir de la première cellule vide en colonne N puis étendre cette formule jusqu'à la cellule N6000 (ou encore mieux étendre la formule jusqu'à la dernière cellule non vide de la colonne précédente M).

J'ai essayé cette formule mais elle considère que la cellule de départ est toujours N3 alors que cette cellule change de semaine en semaine puisque j'importe des données et je les empile les unes sous les autres...

Dim DerLig1 As Long
With Worksheets("Analysis Data")
DerLig1 = .Range("M6000").End(xlUp).Row
.Range("N3:N" & DerLig1).FormulaR1C1 = "=IF(RC[-4]="""","""",........)
End With

J'espere que ma requete est claire et vous remercie déja pour votre aide

Luc

 

[homepyrof53]

Re : Etendre une formule à partir de la première cellule vide et jusqu'à une cellule

Bonjour,

Il faut mettre la suite de point entre cote :

"=IF(RC[-4]="""","""",""...."") "

 

[cul5]

Re : Etendre une formule à partir de la première cellule vide et jusqu'à une cellule

Merci homepyrof53 pour ce commentaire mais le problème n'est pas la formule. d'ailleurs je ne l'ai pas affiché en entier car elle est trop long.

Le problème est de savoir dans quelle cellule l'appliquer et ensuite de l'étendre sur une plage de donnée.

 

[Romao]

Re : Etendre une formule à partir de la première cellule vide et jusqu'à une cellule

Bonjour,

J'essayerais ça moi, mais à vérifier...

DerLig1 = Range("N3").End(xldown).Row
Range("N" & DerLig1 & ":N6000").FormulaR1C1 = "=IF(RC[-4]="""","""",........)

 

[homepyrof53]

Re : Etendre une formule à partir de la première cellule vide et jusqu'à une cellule

Désolé mais je ne vois pas ou tu bloques
Range("N3:N" & DerLig1).FormulaR1C1 défini bien la zone ??

Parfois un petit fichier joint simplifie tout

 

[cul5]

Re : Etendre une formule à partir de la première cellule vide et jusqu'à une cellule

Tu as bien raison. J'ai mis mon exemple.

Pour expliquer le contexte : mon tableau vient comparer des données planifié avec des données réellements produites.
Je viens en semaine 27 rapatrier les données planifiés puis faire une rechercheV pour matcher les données produites.
La macro ci-dessus prend comme départ la cellule C3 et puisque ma semaine 27 est ma première semaine tout va bien.

En revanche, lorsque j'arrive en semaine 28 ma cellule de départ change et devient Cxx mais ma macro prend toujours C3 comme cellule de départ et vient me supprimer toute mes données précédemments importées.

est-ce plus clair ?

 

[homepyrof53]

Re : Etendre une formule à partir de la première cellule vide et jusqu'à une cellule

Essais cette macro sur ton fichier test

Sub pyrof()
l = 3
c = 1
num_semaine = 27
While Cells(l, c) <> ""
    tmp = Val(Mid(Split(Cells(l, c), "_")(1), 2))
    If tmp <> num_semaine Then
        Cells(l, 3) = "Ma formule"
    End If
    
    l = l + 1
Wend
End Sub

 

[cul5]

Re : Etendre une formule à partir de la première cellule vide et jusqu'à une cellule

La solution de romao répond à mon problème.
Voila ma macro complète.

Windows("Suivi Tricot.xlsm").Activate
Sheets("Analysis Data").Select
Dim DerLig1 As Long
With Worksheets("Analysis Data")
DerLig1 = .Range("N1").End(xlDown).Offset(1, 0).Row
.Range("N" & DerLig1 & ":N6000").FormulaR1C1 = "=IF(RC[-3]="""",******)

Désolé à homepyrof mais je n'ai rien compris à ta solution. Mon niveau de compétence est beaucoup trop limité. Merci quand meme ;-)