Aide pour amélioré une macro

pat le fou

XLDnaute Junior
:) BONSOIR à tous

Voila mon petit souci
J'ai cette macro
Sub Macro2()

' Macro2 Macro
' Macro enregistrée le 18/05/2004 par
If Intersect(ActiveCell, Range('A6:F6')) Is Nothing Then: End
ActiveCell = 'A'
End Sub


Je voudrais rajouter les lignes A13:F13 ; H6:M6 et H13:M13 à Range('A6:F6')

Mais mes connaissances sont vraiment limités et mes essais ont finis par une erreur 'de séparateur de ligne'

Pourriez vous m'aider SVP

Merci d'avance

@++++++
 

ya_v_ka

XLDnaute Impliqué
Resalut

je viens de me rendre compte qu'un : malheureux s'était glissé après le F6...


Range('A6:F6,A13:F13,H6:M6,H13:M13')


et le point à la fin n'est que pour mettre une fonction... l'enlever dans le cas present...




ya'v

Message édité par: ya_v_ka, à: 30/10/2005 12:09
 

pat le fou

XLDnaute Junior
:) Salut Herve62

Merci Beaucoup pour ton aide
Je ne sais pas pourquoi mais cela marche



Sub Macro2()

' Macro2 Macro
' Macro enregistrée le 18/05/2004 par
If Intersect(ActiveCell, Range('A6:F6,A13:F13,A20:F20,A27:F27')) Is Nothing Then: End
ActiveCell = 'A'
End Sub


merci à toutes les personnes qui mon aidé

au plaisir

@++ ;)
 

Discussions similaires

Statistiques des forums

Discussions
312 875
Messages
2 093 148
Membres
105 641
dernier inscrit
Naoel