colorer plage cellules bis

Le
sdellaux
vous m'avez déjà fort bien aidé, pour le lien ci - après

http://cjoint.com/?evv6lhuKS7

nous avons donc enrgistré la macro suivante : qui est parfaite

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 7 Then Exit Sub
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Target.Offset(0, -5).Resize(1, 5).Interior.ColorIndex = 40
Target.Offset(0, -5).Resize(1, 6).Copy
End Sub

à celle-ci j'aimerai pourvoir rajouter
la possibilté de coller le résultat dans une cellule de la collonne I.

et indépendemment de cette suite la possibilité en cliquant dans une
cellule de la colonne N (par exemple N 20) de colorer uniquemment les
cellules I20:M20, mais sans sélection ni copie de ces cellules.
merci d'avance pour tout
stéphane
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 3
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4465021
Bonjour.
Essaie (en cas de coloriage des cellules In:Mn, faut-il décolorer la plage
Bn:Gn ?) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 Then
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Target.Offset(0, -5).Resize(1, 5).Interior.ColorIndex = 40
Target.Offset(0, -5).Resize(1, 6).Copy _
Range("I" & Target.Row)
Range("I" & Target.Row & ":N" & Target.Row).Interior.ColorIndex =
xlNone
ElseIf Target.Column = 14 Then
Range("I" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 40
End If
End Sub

Cordialement.
Daniel
"sdellaux"
vous m'avez déjà fort bien aidé, pour le lien ci - après

http://cjoint.com/?evv6lhuKS7

nous avons donc enrgistré la macro suivante : qui est parfaite

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 7 Then Exit Sub
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Target.Offset(0, -5).Resize(1, 5).Interior.ColorIndex = 40
Target.Offset(0, -5).Resize(1, 6).Copy
End Sub

à celle-ci j'aimerai pourvoir rajouter
la possibilté de coller le résultat dans une cellule de la collonne I.

et indépendemment de cette suite la possibilité en cliquant dans une
cellule de la colonne N (par exemple N 20) de colorer uniquemment les
cellules I20:M20, mais sans sélection ni copie de ces cellules.
merci d'avance pour tout
stéphane
sdellaux
Le #4464961
On 22 avr, 12:22, "Daniel"
Bonjour.
Essaie (en cas de coloriage des cellules In:Mn, faut-il décolorer la pl age
Bn:Gn ?) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 Then
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Target.Offset(0, -5).Resize(1, 5).Interior.ColorIndex = 40
Target.Offset(0, -5).Resize(1, 6).Copy _
Range("I" & Target.Row)
Range("I" & Target.Row & ":N" & Target.Row).Interior.ColorIndex =
xlNone
ElseIf Target.Column = 14 Then
Range("I" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 40
End If
End Sub

Cordialement.
Daniel


merci de la reponse après avoir copié la macro ci-dessus j'ai un
message alerte me signifiant
"erreur syntaxe" dans la ligne suivante :
Range("I" & Target.Row & ":N" & Target.Row).Interior.ColorIndex =
xlNone
cela vient il d'une mauvaise manipulation de ma part ?

merci encore de votre patiente
stéphane

jps
Le #4464951
bonjour stéphane
cette ligne ne doit pas être coupée
je pense que c est cela qui te fait avoir cette erreur
peux-tu noter par ailleurs de répondre EN HAUT du post et non EN
FIN....merci
jps

"sdellaux"
On 22 avr, 12:22, "Daniel"
Bonjour.
Essaie (en cas de coloriage des cellules In:Mn, faut-il décolorer la plage
Bn:Gn ?) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 Then
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Target.Offset(0, -5).Resize(1, 5).Interior.ColorIndex = 40
Target.Offset(0, -5).Resize(1, 6).Copy _
Range("I" & Target.Row)
Range("I" & Target.Row & ":N" & Target.Row).Interior.ColorIndex > xlNone
ElseIf Target.Column = 14 Then
Range("I" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 40
End If
End Sub

Cordialement.
Daniel


merci de la reponse après avoir copié la macro ci-dessus j'ai un
message alerte me signifiant
"erreur syntaxe" dans la ligne suivante :
Range("I" & Target.Row & ":N" & Target.Row).Interior.ColorIndex > xlNone
cela vient il d'une mauvaise manipulation de ma part ?
merci encore de votre patiente
stéphane

sdellaux
Le #4464871
cette ligne n'est pas coupée dans la macro que j'ai copiée,
je l'ai recopiée ici juste pour situer le renvoi d'erreur qui m'est
donné
cette ligne apparait surlignée en jaune
je vais reessayer
merci encore
stéphane
On 22 avr, 14:39, "jps"
bonjour stéphane
cette ligne ne doit pas être coupée
je pense que c est cela qui te fait avoir cette erreur
peux-tu noter par ailleurs de répondre EN HAUT du post et non EN
FIN....merci
jps

"sdellaux"
On 22 avr, 12:22, "Daniel"




Bonjour.
Essaie (en cas de coloriage des cellules In:Mn, faut-il décolorer la plage
Bn:Gn ?) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 Then
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Target.Offset(0, -5).Resize(1, 5).Interior.ColorIndex = 40
Target.Offset(0, -5).Resize(1, 6).Copy _
Range("I" & Target.Row)
Range("I" & Target.Row & ":N" & Target.Row).Interior.ColorIndex =
xlNone
ElseIf Target.Column = 14 Then
Range("I" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 40
End If
End Sub

Cordialement.
Daniel


merci de la reponse après avoir copié la macro ci-dessus j'ai un
message alerte me signifiant
"erreur syntaxe" dans la ligne suivante :
Range("I" & Target.Row & ":N" & Target.Row).Interior.ColorIndex => xl None

cela vient il d'une mauvaise manipulation de ma part ?
merci encore de votre patiente
stéphane- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



sdellaux
Le #4464861
je viens de recopier la macro dans l'exemple donnée pour que vous
puissier voir le message erreur qui s'affiche
merci encore
stéphane
Daniel
Le #4464831
Regarde ton classeur modifié :
http://cjoint.com/?ewrNvUpAFK
Daniel
"sdellaux"
cette ligne n'est pas coupée dans la macro que j'ai copiée,
je l'ai recopiée ici juste pour situer le renvoi d'erreur qui m'est
donné
cette ligne apparait surlignée en jaune
je vais reessayer
merci encore
stéphane
On 22 avr, 14:39, "jps"
bonjour stéphane
cette ligne ne doit pas être coupée
je pense que c est cela qui te fait avoir cette erreur
peux-tu noter par ailleurs de répondre EN HAUT du post et non EN
FIN....merci
jps

"sdellaux"
On 22 avr, 12:22, "Daniel"




Bonjour.
Essaie (en cas de coloriage des cellules In:Mn, faut-il décolorer la
plage
Bn:Gn ?) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 Then
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Target.Offset(0, -5).Resize(1, 5).Interior.ColorIndex = 40
Target.Offset(0, -5).Resize(1, 6).Copy _
Range("I" & Target.Row)
Range("I" & Target.Row & ":N" & Target.Row).Interior.ColorIndex > > xlNone
ElseIf Target.Column = 14 Then
Range("I" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 40
End If
End Sub

Cordialement.
Daniel


merci de la reponse après avoir copié la macro ci-dessus j'ai un
message alerte me signifiant
"erreur syntaxe" dans la ligne suivante :
Range("I" & Target.Row & ":N" & Target.Row).Interior.ColorIndex =>
xlNone

cela vient il d'une mauvaise manipulation de ma part ?
merci encore de votre patiente
stéphane- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



sdellaux
Le #4464791
vraiment merci pour la solution, mais j'en suis désolé il y a encore
un tout petit mais
comme vous avez du le comprendre c'est mon petit dossier excel pour
mes suivis bancaires
probleme dans la solution données lorsque je clique en G10 (par
exemple) avec la solution donnée la copie se fait a droite sur la meme
ligne.
En fait je souhaiterai pouvoir la positionnée par moi meme ; puisque
cette operation n'est pas forcément enregistrée par la banque au jour
meme qd je fais mon rapprochement ; donc en essayant d'etre clair :
je clique en G10 (tjrs pour le meme exemple) les cellules en regard se
colorent, se selectionnent et se copient, (comme défini par la macro
actuelle) mais ce n'est seulement lorsque je me positionnerais sur une
cellule par exemple en I14 que l'operation coller s'exécutera
par contre formidable pour la macro coloriant les cellules a droite
celle là est au top
j'espère ne pas etre trop enquiquinant vous etes déjà si formidable
que je me sens un peu coupable d'etre aussi ignare
encore mille merci
si la solution existe comme vous l'avez fait merci de mettre a jour le
dossier joint pour que je puisse le copier dans mes dossiers reels
encore mille merci
stéphane

On 22 avr, 17:40, "Daniel"
Regarde ton classeur modifié :http://cjoint.com/?ewrNvUpAFK
Daniel


Daniel
Le #4464731
Bonjour.
Tu veux dire, dans ton exemple, copier ligne B10:F10 en I14 ?
Daniel
"sdellaux"
vraiment merci pour la solution, mais j'en suis désolé il y a encore
un tout petit mais
comme vous avez du le comprendre c'est mon petit dossier excel pour
mes suivis bancaires
probleme dans la solution données lorsque je clique en G10 (par
exemple) avec la solution donnée la copie se fait a droite sur la meme
ligne.
En fait je souhaiterai pouvoir la positionnée par moi meme ; puisque
cette operation n'est pas forcément enregistrée par la banque au jour
meme qd je fais mon rapprochement ; donc en essayant d'etre clair :
je clique en G10 (tjrs pour le meme exemple) les cellules en regard se
colorent, se selectionnent et se copient, (comme défini par la macro
actuelle) mais ce n'est seulement lorsque je me positionnerais sur une
cellule par exemple en I14 que l'operation coller s'exécutera
par contre formidable pour la macro coloriant les cellules a droite
celle là est au top
j'espère ne pas etre trop enquiquinant vous etes déjà si formidable
que je me sens un peu coupable d'etre aussi ignare
encore mille merci
si la solution existe comme vous l'avez fait merci de mettre a jour le
dossier joint pour que je puisse le copier dans mes dossiers reels
encore mille merci
stéphane

On 22 avr, 17:40, "Daniel"
Regarde ton classeur modifié :http://cjoint.com/?ewrNvUpAFK
Daniel


sdellaux
Le #4464711
Oui c'est cela :
pour etre plus clair je reprends la chronologie de ce dont j'ai
besoin :
toujours dans l'exemple :
si les dans les cellules B10-G10 il y a une ecriture comptable comme
dans l'exemple "prélèvement"
je clique en G10 : les cellules B10:G10 se colorent
j'entre en G10 mon numero de pointage je tape "entrée"
les cellules B10-G10 sont selectionnées et copiées
je pointe sur la cellule par exemple I14
la sélection précédente est recopiée en I14:N14
voila pour le pointage des ecritures.

ensuite pour les lignes vides par exemple :

1- B17:G17 (si les cellules sont vides) en cliquant sur la cellule G17
la plage se colorie sans sélection ni copie (si elles comportent une
ecriture comptable c'est la macro précédente de selection et copie qui
s'applique)

2- I17:N17 en cliquant sur la cellule
N17 je souhaite que la plage de cellule (I17N17) se colorent mais
sans selection ni copie.
merci encore
stéphane
On 23 avr, 06:29, "Daniel"
Bonjour.
Tu veux dire, dans ton exemple, copier ligne B10:F10 en I14 ?
Daniel

Regarde ton classeur modifié :http://cjoint.com/?ewrNvUpAFK
Daniel- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Daniel
Le #4463771
Bonsoir.
Regarde le classeur à l'adresse :
http://cjoint.com/?exwxfMdS8y
Daniel
"sdellaux"
Oui c'est cela :
pour etre plus clair je reprends la chronologie de ce dont j'ai
besoin :
toujours dans l'exemple :
si les dans les cellules B10-G10 il y a une ecriture comptable comme
dans l'exemple "prélèvement"
je clique en G10 : les cellules B10:G10 se colorent
j'entre en G10 mon numero de pointage je tape "entrée"
les cellules B10-G10 sont selectionnées et copiées
je pointe sur la cellule par exemple I14
la sélection précédente est recopiée en I14:N14
voila pour le pointage des ecritures.

ensuite pour les lignes vides par exemple :

1- B17:G17 (si les cellules sont vides) en cliquant sur la cellule G17
la plage se colorie sans sélection ni copie (si elles comportent une
ecriture comptable c'est la macro précédente de selection et copie qui
s'applique)

2- I17:N17 en cliquant sur la cellule
N17 je souhaite que la plage de cellule (I17N17) se colorent mais
sans selection ni copie.
merci encore
stéphane
On 23 avr, 06:29, "Daniel"
Bonjour.
Tu veux dire, dans ton exemple, copier ligne B10:F10 en I14 ?
Daniel

Regarde ton classeur modifié :http://cjoint.com/?ewrNvUpAFK
Daniel- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Publicité
Poster une réponse
Anonyme