Recopier données

[Ken Hutchinson]

Bonjour,

je n'arrive plus à me passer de vous ces temps ci...

Toujours d'une extraction d'une autre appli.

Dans cette extraction il y a 2 types de données Cumul et détail. Dans la colonne C lorsqu'il y a le mot cumul je voudrais qu'il soit recopié automatiquement dans les lignes inférieures mais uniquement un certain nombre de fois.

par exemple le mot cumul apparait en C33 pour la première fois et je voudrais qu'il soit recopié jusqu'en C50. et cela jusqu'à la fin du tableau.

genre : rechercher le mot "Cumul" et le recopier 17x en dessous à chaque fois...

Vous pouvez m'aider ?

 

[porcinet82]

Re : Recopier données

Salut,

Tu peux nous mettres un exemple de ton fichier de départ et de ce que tu souhaites comme résultats afin qu'on puisse adapter directement, parce que comment veux-tu qu'on devines la taille de ton tableau ????

@+

 

[Ken Hutchinson]

Re : Recopier données

Ah... ben la taille du tableau varie à chaque extraction. Mais l'intervalle reste identique à chaque fois.

voilà un exemple

 

[Ken Hutchinson]

Re : Recopier données

Voilà ensuite dans un deuxième temps dans cette même colonne je voudrais dire ceci :

Si en A14 il y a un mot de 6 lettres alors j'écris "Détail" en C14 et je le recopie jusqu'en C31. Celà jusqu'en C65636.

Merci de votre aide en tout car là je galère depuis la semaine dernière...

 

[porcinet82]

Re : Recopier données

re,

Il te faut un code dans ce genre :

Private Sub CommandButton1_Click()
Dim i&
For i = 34 To 65500 Step 50
    Range("C" & i & ":C" & i + 16).Value = "Cumul"
Next i
If Len(Range("A14").Value) = 6 Then
    Cells(14, 3).Value = "Détail"
    For i = 14 To 65536 Step 50
        Range("C" & i & ":C" & i + 17).Value = "Détail"
    Next i
End If
End Sub

Le soucis c'est que dans ton fichier, les ecarts ne sont pas identiques partout, du coup, je suppose que ca faits quelques decalages... Je te laisse le soin d'adapter

@+

 

[Ken Hutchinson]

Re : Recopier données

Effectivement ça décale...

mince et je sui pas de taille à adapter ce code...

il faudrait que la macro recherche la valeur cumul et recopie sur 17 lignes en dessous...

et pour "détail" qu'elle colle "détail" en face des 6 lettres et puis pourquoi pas une recherche de la valeur "détail" et un recopiage 17 ligne en dessous...

 

[Ken Hutchinson]

Re : Recopier données

Mince... personne ne peut m'aider ?

Please help...🙁

 

[porcinet82]

Re : Recopier données

Salut,

Essaye avec le code suivant :

Private Sub CommandButton1_Click()
Dim i&
For i = 33 To 65536
    If Cells(i, 3).Value = "Cumul" Then
        Range("C" & i + 1 & ":C" & i + 17).Value = "Cumul"
        i = i + 17
    End If
Next i
If Len(Range("A14").Value) = 6 Then
    Cells(14, 3).Value = "Détail"
    For i = 14 To 65536
        If Cells(i, 3).Value = "Détail" Then
            Range("C" & i & ":C" & i + 17).Value = "Détail"
            i = i + 36
        End If
    Next i
End If
End Sub

@+

 

[Ken Hutchinson]

Re : Recopier données

salut,

Trop fort !!! ça marche super pour "cumul".

Par contre pour "Détail" ça ne l'applique qu'une fois, ça ne recopie pas jusqu'à la fin.

Merci de ton aide.

 

[porcinet82]

Re : Recopier données

re,

Tiens avec celui-ci ca devrait le faire :

Private Sub CommandButton1_Click()
Dim i&
For i = 33 To 65536
    If Cells(i, 3).Value = "Cumul" Then
        Range("C" & i + 1 & ":C" & i + 17).Value = "Cumul"
        i = i + 17
    End If
Next i
If Len(Range("A14").Value) = 6 Then
    For i = 14 To 65536
        If Cells(i, 3).Value = "Cumul" Then
            Range("C" & i - 19 & ":C" & i - 2).Value = "Détail"
            i = i + 36
        End If
    Next i
End If
End Sub

@+

 

[Ken Hutchinson]

Re : Recopier données

Super !!

ça marche !!!

Merci beaucoup je vais pouvoir avancer..