VBA insertion d'une ligne avec condition

E

eddy51

XLDnaute Occasionnel

• 11 Juin 2012

• #2

Re : VBA insertion d'une ligne avec condition

Bonjour Anna84,

Fonction SI je pence que c'est cela que tu veut .

=SI(condition;siVrai;SiFaux)

 

Vote positif 0 Vote négatif

A

Anna84

Guest

• 11 Juin 2012

• #3

Re : VBA insertion d'une ligne avec condition

Merci de votre réponse, mais avec cette fonction je ne vois pas comment faire pour qu'une NOUVELLE ligne s'insère automatiquement à la suite

 

Vote positif 0 Vote négatif

V

Vorens

XLDnaute Occasionnel

• 11 Juin 2012

• #4

Re : VBA insertion d'une ligne avec condition

Bonjour Anna, Eddy, le forum


Peut être le code suivant répond a ta demande

Code:

Sub Macro1()
'

'
'trouve fin tableau


fintab = Sheets("Feuil1").Range("A" & "65535").End(xlUp).Row +1
'

If Sheets("Feuil1").Range("F2").Value = "Oui" Then

 Rows(fintab & ":" & fintab).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 
End If

End Sub

Il faudra bien sure changer l'adresse de la cellule qui contient le Oui pour le test if car j'ai pas trouvé ou il etait...

Meilleures salutations

Vorens

 

Dernière édition: 11 Juin 2012

Vote positif 0 Vote négatif

A

Anna84

Guest

• 11 Juin 2012

• #5

Re : VBA insertion d'une ligne avec condition

Bonjour Vorens, merci pour ta réponse et ton attention, mais ce code ne marche pas chez moi... J'ai pourtant changer l'adresse des cellules qui contient le Oui, il s'agit de la colonne B...

Merci de votre aide

Cordialement,

Anna

 

Vote positif 0 Vote négatif

V

Vorens

XLDnaute Occasionnel

• 11 Juin 2012

• #6

Re : VBA insertion d'une ligne avec condition

Re,

A quel endroit cela ne fonctionne pas ?

 

Vote positif 0 Vote négatif

E

eddy51

XLDnaute Occasionnel

• 11 Juin 2012

• #7

Re : VBA insertion d'une ligne avec condition

Autant pour moi , en même temps j’étais mal réveillé j'ai même pas vu que tu voulais un VBA.

 

Vote positif 0 Vote négatif

A

Anna84

Guest

• 11 Juin 2012

• #8

Re : VBA insertion d'une ligne avec condition

Bah aucune idée, bien que je m'y connaisse pas vraiment en VBA, le code n'ajoute pas de ligne lorsque je réponds Oui.. Pourtant j'ai repris votre code en changeant le nom de la colonne concernant mais ça ne marche pas... Merci de consulter mon fichier afin que ce soit plus claire pour vous...

 

Vote positif 0 Vote négatif

V

Vorens

XLDnaute Occasionnel

• 11 Juin 2012

• #9

Re : VBA insertion d'une ligne avec condition

La macro ne se déclenche pas toute seule, la question posée était "comment add une ligne". Il faut modifier le code afin qu'il se déclenche au changement de valeur d'une Cellule.

 

Vote positif 0 Vote négatif

A

Anna84

Guest

• 11 Juin 2012

• #10

Re : VBA insertion d'une ligne avec condition

Je l'ai déclenché , elle se nomme "Macro 1 " j'ai déclenchée celle là et j'ai modifié le code

 

Vote positif 0 Vote négatif

V

Vorens

XLDnaute Occasionnel

• 11 Juin 2012

• #11

Re : VBA insertion d'une ligne avec condition

Re,


Pour quel la macro se déclenche lorsque tu écrit "oui" dans ta dernière ligne colonne B2 de ton tableau voici le code

Code:

Sub worksheet_Change(ByVal Target As Range)


'
'trouve fin tableau

fintab = Sheets("Feuil1").Range("A" & "65535").End(xlUp).Row + 1
fintab2 = fintab - 1

Adresse = "$B" & "$" & fintab2

If Target.Address = Adresse And Range("B" & fintab2).Value = "Oui" Then

 Rows(fintab & ":" & fintab).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 
End If

End Sub

En espérant que cela te comble 🙂

Edit: Code a placer dans Feuil1 et pas dans un module.

Meilleures salutations

Vorens

 

Vote positif 0 Vote négatif

A

Anna84

Guest

• 11 Juin 2012

• #12

Re : VBA insertion d'une ligne avec condition

Mercii mais je crois que je me suis mal exprimée lol c'est pas à la fin du tableau que je veux que ce code soit appliquée mais à chaque ligne de la colonne B contenant "Oui". Par exemple si pour la première ligne je réponds Oui, une nouvelle ligne s'iinsère automatiquement à la SUITE, à la deuxième ligne si je réponds Oui => pareil. etc. Vous voyez ce que je veux dire ?

 

Vote positif 0 Vote négatif