changer de ligne

[jmb]

je souhaiterai avoir une macro qui copie une ligne (toujours la meme) d'un fichier modèle dans un autre fichier. Et une fois copier qu'il selectionne la cellule en dessous (par exemple la 1ere fois on colle en a1, la 2ieme fois en b1, etc, etc..................)

 

[Titi2004]

Offset

Bonjou tout le monde et bonne appétit à ceux qui vont partir manger


J'ai un petit problème avec le code ci-dessous:


Sub Swe()
ActiveSheet.Pictures.Insert("http://www.xxxx/se.gif").Select
Range("DRAPO").Select
End Sub

Sub Uk()
ActiveSheet.Pictures.Insert("http://www.xxxx/uk.gif").Select
Range("DRAPO").Select
End Sub

Sub Fr()
ActiveSheet.Pictures.Insert("http://www.xxxx/fr.gif").Select
Range("DRAPO").Select
End Sub

Sub Usa()
ActiveSheet.Pictures.Insert("http://www.xxxx/us.gif").Select
Range("DRAPO").Select
End Sub

Sub test()
For Each c In [PAYS]
If c = "swe" Then
Selection.Offset(0, 2) = Application.Run("Swe")
ElseIf c = "uk" Then
Selection.Offset(0, 2) = Application.Run("Uk")
ElseIf c = "usa" Then
Selection.Offset(0, 2) = Application.Run("Usa")
ElseIf c = "fr" Then
Selection.Offset(0, 2) = Application.Run("Fr")
End If
Next
End Sub

J'ai une plage nommée PAYS (D) et une autre DRAPO (E:E), je voudrais que selon le pays d'une cellule comprise dans PAYS qu'XL me mette le drapo adéquat dans une cellule située 2 colonnes plus loin sur la meme ligne.

Le code vba pour afficher les drapeaux est déjà prédéfini et il me suffit juste d' executer les macros (Swe; Uk; Usa; Fr). par une condition.

En utilisant la commande offset ca met tout partout ou les un sur les autres...

Merci à l'avance de votre aide...

 

[Titi2004]

Oups dsl, me suis trompé, mais mon problème et à peu pres le meme que le tiens et la réponse sera surement la meme.

Essayes du coté de la fonction Offset.

 

[Titi2004]

jmb, j'ai ta solution

rajoute a la fin ces 2 lignes:

'Pour passer la ligne du dessous'
ActiveCell.Offset(1, 0).Select
'pour recommencer l'execution de la macro a partir de celle-ci'
Loop

 

[le CH'TI160]

salut le forum