Insertion de Fonction 1 ligne sur 6 ?

[surzone]

un autre mystère me hante et je ne sais pas s'il est solvable :

Je voudrai insérer une fonction systématiquement sous chaque ligne du tab. Il s'agit d'une fonction RECHERCHEV que je voudrai insérer sous chacun des lignes initiales dans des colonnes spécifiques. La fonction doit s'insérer une ligne sur 6 en partant de C2. Dans cet exemple, la fonction doit s'insérer en A2 et en A8 puis A14 etc...


A B C D
1 FRANCK 5551611 26.09.2007 13.12.2007
2 RECHERCHEV RECHERCHEV
3
4
5
6
7 PASCAL 5510044 15.08.2007 07.10.2007
8 RECHERCHEV RECHERCHEV


Est ce possible ?

 

[Excel-lent]

Re : Insertion de Fonction 1 ligne sur 6 ?

oui

 

[skoobi]

Re : Insertion de Fonction 1 ligne sur 6 ?

Bonsoir,
tu crés une boucle dans laquelle tu y mets la fonction:

For lig = 2 To 32 Step 6
Range("A" & lig).FormulaLocal ="ta fonction"
Next

Step 6 permet de faire la création toutes les 6 lignes de la ligne 2 à 32.

 

[Excel-lent]

Re : Insertion de Fonction 1 ligne sur 6 ?

Plus sérieusement, voici une solution en VBA :

Sub FormuleRécurente()
' Excel-lent le 29/11/07

Dim Ligne As Integer

Ligne = 2
  For i = 1 To 3 'comme ds l'exemple, le modifié suivant ton cas
    Rows(Ligne).Insert Shift:=xlDown

' mettre ta formule "recherche" ici

    Ligne = Ligne + 6
  Next i

End Sub