Aide pour amélioré une macro

[pat le fou]

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

@++++++

 

[Bebere]

bonsoir Pat

en vba ; devient ,
Range('A6:F6','A13:F13' , 'H6:M6','H13:M13')
à bientôt

 

[pat le fou]

Bonsoir Bebere


J'ai essaye ta solution mais j'ai un message d'erreur

Erreur de compilation
Nombre d'argument incorrect ou affectation de propriété incorrect

Merci beaucoup pour ton aide

@++++++

 

[ya_v_ka]

salut

en utilisant l'enregistreur de macro il me donne cela :

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


ya'v

 

[pat le fou]

Bonjour ya_v_ka

J'ai essayé ceci

If Intersect(ActiveCell, Range('A6:F6:,A13:F13,H6:M6,H13:M13')). Is Nothing Then: End

mais cela me donne une Erreur de compilation

Merci pour l'aide

@+++

 

[Herve62]

Salut
C'est ta cellule H13 qui cree le conflit , j'ai eu l'erreur
peux tu decaler ta plage ?
essaye L13:O13 par exemple
j'ai teste ca marche
Hervé

 

[ya_v_ka]

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]

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

@++