Insérer des lignes dans un tableau suivant une valeur

Elo5995 Messages postés 1 Statut Membre -  
NicolasVBA Messages postés 16 Statut Membre -
Bonjour

Je sais suivie une formation "macro" mais pas VBA alors forcement j'essaie d'automatiser quelque fichier mais je n'arrive pas à faire ce que je veux car je ne connais pas le langage VBA.

mon problème :
Insérer une seule fois 10 lignes si la valeur de ma colonne J ne commence pas par "1EX".

Merci de votre reponse

1 réponse

  1.
    NicolasVBA Messages postés 16 Statut Membre 3
     
    Tu as un tableau dans lequel tu veux insérer 10 lignes sous chaque ligne dont la valeur en colonne J commence par 1EX, c'est ça ?

    Voici un code VBA qui marchera si le tableau final fait moins de 30 000 lignes 

    Sub test()
For i = 1 To 30000 'sous réserve que le tableau final fasse 30 000 lignes maximum
    If Cells(i, 10).Value Like "*1EX*" Then
        For j = 1 To 10
        Rows(i + 1).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        derlig = derlig + 10
        Next
    End If
Next
End Sub


    La cuillère n'existe pas !
    0