J'essaie de inserer une ligne après avoir trouvé ma valeur 'USD'
dans ma colonne AA mais je n'arrive pas a l'inserer, pour cela
j'essai d'adapter cet macro trouvé dans le forum:
Sub test()
Set trouvé = Cells.Find(What:="USD")
If Not trouvé Is Nothing Then
trouvé.Activate
ligne = trouvé.Row
colone = trouvé.Column
'Inserer ici ma ligne une fois trouve ma valeur
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Dante,
si c'est pour inserer une ligne au dessus,
Rows(ligne).Insert Shift:=xlDown
sinon en dessous,
Rows(ligne + 1).Insert Shift:=xlDown
isabelle
Bonjour,
J'essaie de inserer une ligne après avoir trouvé ma valeur 'USD' dans ma colonne AA mais je n'arrive pas a l'inserer, pour cela j'essai d'adapter cet macro trouvé dans le forum: Sub test() Set trouvé = Cells.Find(What:="USD") If Not trouvé Is Nothing Then trouvé.Activate ligne = trouvé.Row colone = trouvé.Column 'Inserer ici ma ligne une fois trouve ma valeur End If End Sub
Merci beaucoup de votre aide
Dante
bonjour Dante,
si c'est pour inserer une ligne au dessus,
Rows(ligne).Insert Shift:=xlDown
sinon en dessous,
Rows(ligne + 1).Insert Shift:=xlDown
isabelle
Bonjour,
J'essaie de inserer une ligne après avoir trouvé ma valeur 'USD'
dans ma colonne AA mais je n'arrive pas a l'inserer, pour cela
j'essai d'adapter cet macro trouvé dans le forum:
Sub test()
Set trouvé = Cells.Find(What:="USD")
If Not trouvé Is Nothing Then
trouvé.Activate
ligne = trouvé.Row
colone = trouvé.Column
'Inserer ici ma ligne une fois trouve ma valeur
End If
End Sub
J'essaie de inserer une ligne après avoir trouvé ma valeur 'USD' dans ma colonne AA mais je n'arrive pas a l'inserer, pour cela j'essai d'adapter cet macro trouvé dans le forum: Sub test() Set trouvé = Cells.Find(What:="USD") If Not trouvé Is Nothing Then trouvé.Activate ligne = trouvé.Row colone = trouvé.Column 'Inserer ici ma ligne une fois trouve ma valeur End If End Sub
Merci beaucoup de votre aide
Dante
apdf
Dante Huapaya a écrit le 25/04/2006 à 01h54 :
Bonjour,
J'essaie de inserer une ligne après avoir trouvé ma valeur 'USD' dans ma colonne AA mais je n'arrive pas a l'inserer, pour cela j'essai d'adapter cet macro trouvé dans le forum: Sub test() Set trouvé = Cells.Find(What:="USD") If Not trouvé Is Nothing Then trouvé.Activate ligne = trouvé.Row colone = trouvé.Column 'Inserer ici ma ligne une fois trouve ma valeur End If End Sub
Merci beaucoup de votre aide
Dante
Bonjour
Super ces exactement cela que je chercher.
merci beaucoup Max
Dante Huapaya a écrit le 25/04/2006 à 01h54 :
Bonjour,
J'essaie de inserer une ligne après avoir trouvé ma valeur 'USD'
dans ma colonne AA mais je n'arrive pas a l'inserer, pour cela
j'essai d'adapter cet macro trouvé dans le forum:
Sub test()
Set trouvé = Cells.Find(What:="USD")
If Not trouvé Is Nothing Then
trouvé.Activate
ligne = trouvé.Row
colone = trouvé.Column
'Inserer ici ma ligne une fois trouve ma valeur
End If
End Sub
J'essaie de inserer une ligne après avoir trouvé ma valeur 'USD' dans ma colonne AA mais je n'arrive pas a l'inserer, pour cela j'essai d'adapter cet macro trouvé dans le forum: Sub test() Set trouvé = Cells.Find(What:="USD") If Not trouvé Is Nothing Then trouvé.Activate ligne = trouvé.Row colone = trouvé.Column 'Inserer ici ma ligne une fois trouve ma valeur End If End Sub