Etendre formule dans une colonne avec saut de ligne régulier

Bonjour,

Je souhaiterais étendre une formule basique sur une colonne avec un saut de ligne régulier toutes les 7 lignes qui fait référence à une autre colonne ne comportant aucun saut de ligne, j'ai essayé avec la fonction DECALER mais je ne comprends pas le fonctionnement de cette dernière.

Merci

Maxime

Bonjour,

Etends ta formule sur les 6 premières lignes.

Laisse vide la 7ème (celle que tu dois sauter)

Sélectionne tes 7 lignes (les 6 avec ta formule et la 7ème vide)

Etends tout ça vers le bas.

Cela ne fonctionne pas ?

Bonjour, merci pour votre réponse,

Non ça ne fonctionne il y un saut de ligne effectué dans la colonne de référence n'en comportant pas

Merci

Je crois que je n'ai pas très bien saisi ce que tu voulais faire dans ce cas ... Désolé

Salut Alex, AF-VBA,

quelque chose comme ça? Désolé, je ne suis pas capable de le faire en formule!

Private Sub cmdGO_Click()
'
iRow = Range("A" & Rows.Count).End(xlUp).Row
iFlag = 0
For x = 1 To iRow
    If x Mod 8 = 0 Then
        iFlag = iFlag - 1
        x = x + 1
    End If
    Range("C" & x).Value = "'=A" & x & "*E" & (x + iFlag) & ""
    Range("D" & x).FormulaLocal = "=A" & x & "*E" & (x + iFlag) & ""
Next
'
End Sub

A+

Merci pour ton aide,

Je ne sais pas pourquoi mais je n'arrive pas à ouvrir le classeur sauf en lecture seule et donc la macro ne fonctionne pas

Merci

Salut Alex,

et celui-ci?

A+

Bonjour, désolé pour le retard

Je n'arrive pas à ouvrir celui-ci non plus

Voici en pièce jointe un exemple afin d'éclaircir mon problème

Maxime

Salut Alex,

ici, ça fonctionne très bien!

Private Sub cmdGO_Click()
'
iRow = Range("E" & Rows.Count).End(xlUp).Row
For x = 1 To iRow
    iLig = iLig + 1
    If x Mod 8 = 0 Then iLig = iLig + 1
    Range("B" & iLig).FormulaLocal = "=SOMME(E" & x & ":F" & x & ")"
Next
'
End Sub

A+

Bonjour,

Heuuu, si tu prends B2:B9 et que tu tires vers le bas, c'est quoi le pb ???.

eric

Bonjour,

Pourquoi ne pas utiliser ta liste d'origine et utiliser une colonne pour la somme et une pour la mediane ?

Pour la médiane, en H8 :

=SI(D8="dimanche";MEDIANE(E2:E8+F2:F8);"")

à valider en matriciel avec Shift+Ctrl+Entrée

à tirer vers le haut.

Puis, avec tes sommes en G2:G8, sélectionner le bloc G2:H8 et tirer vers le bas.

Plus simple et en plus tu gagnes en lisibilité

eric

Bonjour Eric,

J'ai essayé ta méthode et elle fonctionne très bien mais malheureusement je suis contraint par ma mise en page sur la feuille de mon véritable classeur mis en PJ.

@curulis57: est-ce qu'il serait possible que tu me modifies directement dans ma feuille Excel parce que j'ai essayer de partir de l'exemple fourni et de. l'appliquer dans mon vrai classeur et je n'y parviens pas.

Il faudrait si possible que les valeurs de "charge externe" de la feuille "Tableau de bord" soient égales à la somme du temps passé en minutes à chaque intensité (de i1 à i7), multiplié par un coefficient spécifique à chaque intensité et situées dans la feuille "Correspondance"

Exemple : Tableau de bord!F13 = !Correspondance!O2*2+P2*2,5+Q2*3+R2*3,5+S2*4,5+T2*7+U2*11)

Merci à vous deux

Salut Alex, Eriic,

voici ton fichier avec un petit bouton rouge qui lance l'installation des formules de la colonne F.

Private Sub cmdGO_Click()
'
Application.ScreenUpdating = False
'
iRow = Range("C" & Rows.Count).End(xlUp).Row
iIdx = 1
For x = 13 To iRow
    If x Mod 8 <> 4 Then iIdx = iIdx + 1
    Range("F" & x).FormulaLocal = IIf(x Mod 8 <> 4, _
        "=SIERREUR(Correspondance!O" & iIdx & "*2+Correspondance!P" & iIdx & "*2,5+Correspondance!Q" & iIdx & "*3+Correspondance!R" & iIdx & "*3,5+Correspondance!S" & iIdx & "*4,5+Correspondance!T" & iIdx & "*7+Correspondance!U" & iIdx & "*11;"""")", _
        "=SOMME(F" & x - 7 & ":F" & x - 1 & ")")
Next
'
Application.ScreenUpdating = True
'
End Sub

Attention! Cette macro n'est valable qu'à la condition (actuellement) que la semaine soit complète depuis la ligne 13!!!!

A+

Merci beaucoup pour ta rapidité,

J'ai toujours le même problème, je n'arrive pas à ouvrir ce classeur sous Mac avec Office 2016 mis à jour (cf: photo en PJ)

Je ne sais pas à quoi cela est dû

Salut Alex,

Je n'avais pas du tout capté que tu étais sous Mac.

C'est peut-être le CommandButton qui n'est pas compatible... Je ne connais pas les incompatibilités! Déso!

J'imagine que la syntaxe est la même! Essaie de coller toi-même le code suivant dans 'Worksheet_SelectionChange' ?!?

Aucune autre idée pour t'aider!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Target.Address = [F12].Address Then
    '
    Application.ScreenUpdating = False
    '
    iRow = Range("C" & Rows.Count).End(xlUp).Row
    iIdx = 1
    For x = 13 To iRow
        If x Mod 8 <> 4 Then iIdx = iIdx + 1
        Range("F" & x).FormulaLocal = IIf(x Mod 8 <> 4, _
            "=SIERREUR(Correspondance!O" & iIdx & "*2+Correspondance!P" & iIdx & "*2,5+Correspondance!Q" & iIdx & "*3+Correspondance!R" & iIdx & "*3,5+Correspondance!S" & iIdx & "*4,5+Correspondance!T" & iIdx & "*7+Correspondance!U" & iIdx & "*11;"""")", _
            "=SOMME(F" & x - 7 & ":F" & x - 1 & ")")
    Next
    '
    Application.ScreenUpdating = True
    '
End If
'
End Sub

Bon courage!

Si je trouve autre chose, je t'appelle mais tiens-moi au courant!

A+

D'accord, merci beaucoup pour ton aide, j'essaie ça et je reviens vers toi

C'est peut-être le CommandButton qui n'est pas compatible... Je ne connais pas les incompatibilités! Déso!

Mac ne connait pas les ActiveX, spécificité d'excel.

Il faut utiliser les objets Formulaire uniquement.

eric

Merci Eriic pour cette info!

A part les ActiveX, y a-t-il beaucoup d'incompatibilités entre VBA-Windows et VBA-Mac ?

Je vais fouiller la Toile, histoire d'adapter mes codes, si c'est possible, aux machines de nos hôtes!

A+

Je voulais dire spécificité de windows mais tu as traduit

L'eesentiel en qq lignes, une page intéressante que j'ai pu retrouver sur web.archive, excelabo s'étant fait piraté :

https://web.archive.org/web/20151001112448/http://www.excelabo.net/excel/mac_pc2

eric

Merci beaucoup à vous deux