Discussion :

[NEC14]

Bonjour à tous,

Je souhaite insérer cette formule dans mon tableau Excel. Celle-ci doit-être fonctionnelle uniquement toutes les 4 colonnes à partir de J4 et sur toutes les lignes de ces colonnes. La 1ère colone de mon tableau est en A4.

Code :

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

1
2
 
=SI(I4="";"";MOIS.DECALER(I4;$H$2))

J'ai commencé ça, mais je ne sais pas écrire cette formule en VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
 
For Each c In Range([A4], Cells(Rows.Count, 1).End(xlUp))
        For i = 10 To 66 Step 4
            If Cells(c.Row, i - 1) = "" Then
            'ici rien ne se passe
            Else
            Cells(c.Row, i).Formula = "" 'ici ma formule
                End If
                Next i
            Next c

Merci par avance pour votre aide

[jfontaine]

Bonjour,

Dans ton cas, j'utiliserais un copier/coller, comme cela les références se mettront à jour sans se casser la tete

[NEC14]

Pour le moment c'est ce que j'ai fait, mais cela ralenti considérablement le calcul de la feuille, c'est pour cette raison que je souhaitais inclure cette formule dans une macro VBA.

Merci toutefois pour ta réponse

Bonjour à tous,

J'espère que vous avez passé un excellent weekend pascal.
J'ai planché sur mon problème pendant 2 jours sans succès.

Mon code concerne 11025 cellules et je suis convaincu qu'en passant par une macro Vba cela irait beaucoup plus vite.

Pour la colonne J la base est H2, pour N la base est L2, etc..., jusqu'à la colonne BN où la base est BL2.

Par exemple pour un résultat dans les cellules de la colonne J4 à J108 la formule est :

Code :

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

1
2
 
=Si(I4;"";"";MOIS.DECALER(I4;$H$2))

Dans H2 il y a 3, donc je calcul à partir de la date en I4 quelle date nous serons dans 3 mois.

Je pense mettre ce code dans

Code :

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

1
2
3
4
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
End Sub

Peut-être n'est-ce pas réalisable en Vba. Merci toutefois de m'apporter votre aide.
René

Bonjour à tous,

J'ai écris ce code, mais il me renvoit la date saisie dans la cellule précédente.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
For Each c In Range([A4], Cells(Rows.Count, 1).End(xlUp))
        For i = 10 To 66 Step 4
            If Cells(c.Row, i - 1) = "" Then
            'ici rien ne se passe
            Else
            Cells(c.Row, i).Formula = (Cells(c.Row, i - 1) + (H2 * 30)) 'ici ma formule
                End If
                Next i
            Next c

[keygen08]

Bonjour
Placer en A1

Code :

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

ActiveCell.FormulaR1C1 = "=IF(R[3]C[8]="""","""",EDATE(R[3]C[8],R2C8))"

est la transcription de

=SI(I4="";"";MOIS.DECALER(I4;$H$2))

R[3]C[8] correspondant a un offset par rapport a la cellule A1.

J'aurai plutôt ecrit comme cela ton code, afin d'eviter le else et le end if

Code :

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

1
2
3
4
5
For Each c In Range([A4], Cells(Rows.Count, 1).End(xlUp))
        For i = 10 To 66 Step 4
            If Cells(c.Row, i - 1) <> "" Then Cells(c.Row, i).Formular1c1 = = "=IF(R[3]C[8]="""","""",EDATE(R[3]C[8],R2C8))
                Next i
            Next c

[NEC14]

Bonjour et merci,

J'ai fait comme tu me l'as indiqué, ça marche pour ma première colonne, mais la formule doit être faite pour être uilisée toutes les 4 colonnes, en commençant par la colonne H et se terminant par la colonne BL.

Code :

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

1
2
3
4
5
6
 
For Each c In Range([A4], Cells(Rows.Count, 1).End(xlUp))
        For i = 10 To 66 Step 4
            If Cells(c.Row, i - 1) <> "" Then Cells(c.Row, i).FormulaR1C1 = "=IF(RC[-1]="""","""",EDATE(RC[-1],R2C8))"
                Next i
            Next c

Mais j'ai peur que tout ces codes ne ralentissent encore plus le calcul.

[keygen08]

Comme c'est lundi, tu peux m'envoyer juste la premiere ligne pour m'eclaircir l'esprit. Ensuite on peut codifier le resultat a obtenir sans coller une formule sur la feuille.

Quelle sont les format de cellule apliquer en h2, i4,j4. Si j'ai bien compris, tu veux ajouter H2 a la date se trouvant en I4 dans H4.

Après réflexion, je me suis réuni et on en as débattu pour arriver à cela :

Code :

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

1
2
3
4
5
For Each c In Range([A4], Cells(Rows.Count, 1).End(xlUp))
        For i = 10 To 66 Step 4
            If Cells(c.Row, i - 1) <> "" Then Cells(c.Row, i).FormulaR1C1 = "=IF(RC[-1]="""","""",EDATE(RC[-1],R2C" & i - 2 & "))"
        Next i
Next c

OU alors sans verifié que I est vide

Code :

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

1
2
3
4
5
6
7
Sub devellopêz()
Dim c As Range
num = Range("A65000").End(xlUp).Row
For i = 10 To 66 Step 4
     Range(Cells(4, i), Cells(num, i)).FormulaR1C1 = "=IF(RC[-1]="""","""",EDATE(RC[-1],R2C" & i - 2 & "))"
Next i
End Sub

On copie la formule dans toutes la colonne d'un coup, cela devrait accélerer le traitement

[NEC14]

Donc, pour la première ligne, j'ai mis une partie du fichier en pièce jointe.

Dans la cellule J4 il y a la formule.

[keygen08]

Une MFC ne serait t-elle pas plus rapide que Couleurs ?

[NEC14]

Merci pour tes réponses.

Ha ! Oui, une Mise en Forme Conditionnelle. C'est que j'avais fait au départ, et puis je me suis dirigé vers la Macro. C'est peut-être une bêtise.

En fait non, puisque j'ai 4 conditions à remplir et qu'Excel n'en propose que 3.
La semaine commence difficilement pour moi aussi.

[Guiiand]

Bonjour,

Si tu n'as que 4 cas à gerer, la MFC est niquel.

Le format de base + 3 MFC => 4 cas

[keygen08]

Si cellule = "" then pas de couleur : ne compte pas
vert :1
rouge :1
orange :1

1+1+1+rien = 3 et l'on est que lundi.

[Guiiand]

Re,

Si tu joues sur la couleur de police au lieu du fond

De base t'ecris en rouge
Cond 1 : bleu
Cond 2 : vert
Cond 3: orange

et si c'est vide, t'as rien.

Du coup ca fait bien 4 couleurs différentes

PS : C'est pas parce que c'est férié que le calendrier s'arrête, on est mardi

[NEC14]

Merci pour vos réponses. Dans la cellule en question, il n'y a pas de texte, c'est juste une couleur de fond.

J'ai fait les 3 MFC, il y a toujours une couleur affichée, même si la cellule ciblée est vide.

1° condition = J4 > $A$A1 alors vert
2° condition = J4-$A$1 >=15 alors orange
3° condition = $A$1 >= J4 alors rouge

Dans ce cas, la cellule est verte si J4 est vide

[Guiiand]

Re,

j'ai fais un essai sur mon poste avec

cond 1 : =SI(ET($A$1>=J4;J4<>"");VRAI;FAUX) => Rouge
cond 2 : =SI(J4-$A$1>=15;VRAI;FAUX) = > Orange
cond 3 : =SI(J4>$A$1;VRAI;FAUX) => Vert

Avec un stop si la condition est vérifié, et ca a l'air de marcher

[NEC14]

Merci beaucoup, ça fonctionne bien.