Inserer un ligne avec condition

[René du var]

Bonjour le forum,

Est-il possible d'écrire une macro

qui me permette d'ajouter une ligne en dessous

à chaque fois que la procédure rencontre le mot "somme" en colonne " A "

PS : Je précise que le mot somme est suivis de chiffre exemple : somme454545445544 somme est toujours en début de ligne mais les chiffres changent

merci

René du var

 

[Hervé]

bonjour rené

essaye ceci :

Public Sub rené()
Dim c As Range
For Each c In Range("a1:a" & Range("a500").End(xlUp).Row)
If c.Value Like "somme*" Then
c.Offset(1, 0).Insert Shift:=xlDown
End If
Next c

End Sub

salut
Hervé

 

[René du var]

Salut Hervé,

Je viens de placer la procédure dans la feuille mais rien !

J'ai surement oublier quelque chose

Peut-tu me donner la marche à suivre pour actionner la macro sur commande merci

René du var

 

[Hervé]

re

plus qu'un long discours (surtout pour moi pas très pédago) une piece jointe.

Salut
Hervé

PS : la macro se trouve en feuille 1 en VBA (alt + F11)

 

[René du var]

Re

Merci pour ton fichier joint

ca fonctionne pour une colonne

Je dois inserer une ligne entière

comment faire ?

Merci

René du var

 

[BRUNO I]

Bonjour René et à tous

Voici une soluce parmi tant d'autres

A+

 

[René du var]

Merci beaucoup

 

[René du var]

Bonjour le forum,

J'aimerai si possible ajouter une instruction supplémentaire à cette macro.

ajouter : voir fichier joint

Les 4 formules dans les colonnes citées ci-dessous

=SI(P19>Q19;P19-Q19;"OK") colonne P
=SI(Q19>P19;Q19-P19;"OK") colonne Q
=SI(R19>S19;R19-S19;"OK") colonne R
=SI(S19>R19;S19-R19;"OK") colonne S

et une mise en forme conditionnelle ou se trouve les formule dans les colonnes P - Q - R - S
(Si différent de "OK" alors fond de cellule jaune)

Merci de mettre un petit commentaire sur chaque ligne
ca me permet de comprendre la macro

Merci

René du var