La cellule doit rester blanche en tirant vers le bas

[Victor]

Bonjour le forum,

j'aimerais tirer une cellule vers le bas et avoir la même couleur SAUF dans les lignes de titres ( BLANC )

Je pense avec une MFC ?

A+ et merci d'avance

 

[kingfadhel]

Re : La cellule doit rester blanche en tirant vers le bas

Bonjour Victor, le forum

Voila une solution avec macro

Sub Blanc()
For i = 2 To 40 ' a changer selon le nombre de ligne dans ton tableau
Set c = Range("B" & i)
If c.MergeCells = False And Range("A" & i) <> "" Then ' si on a une cellule non fusionnée et la cellule de coté (en A) alors la couleur de Fond change en jaune. 
Range("B" & i).Select
    With Selection.Interior
        .Color = 65535
    End With
End If
Next
End Sub

 

[Victor]

Re : La cellule doit rester blanche en tirant vers le bas

Salut Kingfadhel,

merci pour ta réponse, mais je connais pas du tout les macros, j'aimerais trouver une solution normale avec une mfc ?

A +

 

[kingfadhel]

Re : La cellule doit rester blanche en tirant vers le bas




Voila ton fichier en retour avec macro

 

[kingfadhel]

Re : La cellule doit rester blanche en tirant vers le bas



Saisie des données dans la colonne A est la MFC fait son affaire,
Ne pas tirer vers le bas, il détecte automatiquement si la cellule A"x" n'est pas vide

Pour les cellules fusionnées ne pas fusionner à partir de la colonne A mais à partir de la colonne B comme dans le classeur joint.

 

[excfl]

Re : La cellule doit rester blanche en tirant vers le bas

Bonjour Victor, kingfadhel,

Voir le fichier joint.

excfl

 

[Victor]

Re : La cellule doit rester blanche en tirant vers le bas

Salut Excfl,

j'ai un tableau

de b3 à z3 les cellules sont vertes
de b12 à z12 toujours vertes
de b20 à z20 toujours vertes

je pose une couleur dans la cellule d1, je tire en bas evec la poignée de recopie mais je voudrais pas que la couleur initiale verte sur la ligne 3 12 et 20 changent

Merci d'avance

 

[Victor]

Re : La cellule doit rester blanche en tirant vers le bas

Re, j'essaie de chercher sur le net une MFC avec mod(ligne je pense ou autres choses du moment que cela fonctionne....

MERCI d'avance pour vos explications...

Victor

 

[Monique]

Re : La cellule doit rester blanche en tirant vers le bas

Bonjour,

Un essai
Je ne comprends pas tes explications de 14:40

 

[job75]

Re : La cellule doit rester blanche en tirant vers le bas

Bonjour Victor, salut kingfadhel, excfl, mes hommages Monique,

Voyez le fichier joint avec cette macro dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range, fusion As Range
If Target.Address = "$B$2" Then
  Set r = Intersect([B:B], Me.UsedRange)
  If r Is Nothing Then Exit Sub 'sécurité
  For Each r In r
    Set r = r.MergeArea
    If r.Count > 1 Then _
      Set fusion = Union(r, IIf(fusion Is Nothing, r, fusion))
  Next
  If fusion Is Nothing Then Exit Sub
  fusion.Name = "ZoneFusion" 'nom défini pour mémoriser
  fusion.UnMerge
  fusion.HorizontalAlignment = xlCenterAcrossSelection
ElseIf Not IsError([ZoneFusion]) Then
  [ZoneFusion].Merge
  ThisWorkbook.Names("ZoneFusion").Delete
End If
End Sub

Pour qu'elle fonctionne quand on tire vers le bas, il faut impérativement avoir sélectionné B2.

C'est une excellente idée qu'a eu Victor de fusionner les cellules, je mets un Like au post #1.

Edit : pour que la macro fonctionne correctement il ne faut pas qu'il y ait des lignes consécutives fusionnant les mêmes cellules.

A+

 

[job75]

Re : La cellule doit rester blanche en tirant vers le bas

Re,

Suite à l'Edit de mon post précédent voici une solution qui règle le problème :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range, n&, nom As Name
If Target.Address = "$B$2" Then
  Set r = Intersect([B:B], Me.UsedRange)
  If r Is Nothing Then Exit Sub 'sécurité
  For Each r In r
    Set r = r.MergeArea
    If r.Count > 1 Then
      n = n + 1
      r.Name = "ZoneFusion" & n 'nom défini pour mémoriser
      r.UnMerge
      r.HorizontalAlignment = xlCenterAcrossSelection
    End If
  Next
Else
  For Each nom In ThisWorkbook.Names
    If nom.Name Like "ZoneFusion*" Then
      Evaluate(nom.Name).Merge
      nom.Delete
    End If
  Next
End If
End Sub

La macro sera moins rapide que la précédente s'il y a beaucoup de lignes fusionnées.

Fichier (2).

A+

 

[job75]

Re : La cellule doit rester blanche en tirant vers le bas

Re,

Une amélioration des 2 fichiers précédents : on peut tirer vers le bas n'importe quelle selection.

La variable test permet de savoir si l'une des cellules fusionnées est sélectionnée.

Fichiers (1 bis) et (2 bis).

Edit : pour que l'on comprenne mieux ce qui se passe j'ai ajouté :

If Target.Count = 1 Then Target.MergeArea.Select

A+

 

[Victor]

Re : La cellule doit rester blanche en tirant vers le bas

Bonsoir le forum, bonsoir chère Monique et job75

Le problème, c'est que je dois tirer vers le bas et certaine cellules, comme par exemple les grades , doivent rester blanche et le reste prendre la couleur qu'il y a en haut dans ma cellule de départ avant de tirer vrs le bas...

Edit : Job75, la macr, c'est pas dans mes cordes, je suis plutôt formules...

Bonne soirée. A+ Victor

 

[Victor]

Re : La cellule doit rester blanche en tirant vers le bas

Re job75,

ton fichier Tirer vers le bas (2) fonctionne bien mais pas l'autre.

Merci et bonne soirée.

Victor

 

[sourcier08]

Re : La cellule doit rester blanche en tirant vers le bas

Salut à tous,

Pourquoi ne pas truander avec une autre cellule ?

Je m'explique : si dans la colonne D ("D" est un exemple, ça pourrait être une autre colonne), tu mets "1" (ou autre chose) au niveau de la ligne que tu ne veux pas voir changer. Si tu veux que B9 ne change pas, tu mettra "1" en D9, par exemple.
Rein ne t'empêche par la suite de masquer cette colonne.

Ensuite dans la MFC des cellules en colonne B, tu mets : =et($D9<>"") et la couleur que tu désires garder à cet endroit.

Voir fichier joint.