Variable, selon la colonne active

Bonsoir tous le monde,

Voilà j'utilise cette courte macro pour réaliser des collages-spécial 'texte' :

Sub collage_texte()
'
' collage_texte Macro
'
' Touche de raccourci du clavier: Ctrl+w
'
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveCell.Offset(20, 0).Select
End Sub

une fois le collage effectué, me projette 20 cellules plus bas, prête à recevoir le collage suivant...

J'aimerais que cette macro s'applique en effet (donc projection 20 cellules plus bas) si je suis dans la colonne 'G' ...

OU

qu'elle me projette 200 cellules plus bas si la cellule active est dans la colonne 'BB'...

Qu'en pensez-vous ?

Salut Manouelle,

Je n’ai pas très bien compris où tu veux en venir avec la première partie de ta macro. Mais si ton but est de sélectionner la cellule 20 lignes en-dessous de la cellule active s’il s’agit de la colonne G et 200 lignes en-dessous s’il s’agit de la colonne BB, le code ci-dessous devrait faire l’affaire.

Sub Selection_speciale()

If ActiveCell.Column = 7 Then
    ActiveCell.Offset(20, 0).Select
Else
If ActiveCell.Column = 54 Then
    ActiveCell.Offset(200, 0).Select
End If
End If

End Sub

Dans le cas contraire, merci de joindre ton fichier.

Cordialement.

OUI !!!

c'est exactement ça, rien de plus...

merci beaucoup !!!