Fusionner automatiquement des cellules selon condition

Résolu
nonossov Messages postés 638 Statut Membre -  
nonossov Messages postés 638 Statut Membre -
Bonjour,
j'ai ci-jointe un fichier excel pour expliquer la macro,
j'ai essayé de fusionné deux colonne F et G selon condition de valeur, mais j'ai pas encore réussi, la macro demande que : dans le colonne E: si F contient le zéro on met "D" dans le E et si G contient le zéro en met "C" et on fusionne F et G,
Merci Beaucoup sur votre aide en avance 

www.cjoint.com/data/0CqlmyAFJ6I.htm

2 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjoir,

    code pour un bouton de lancement (pas precise dans la demande comment lancer le code): 
    Sub Bouton1_Cliquer()
    With Worksheets("feuil1")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
        For x = 1 To derlig
            If .Range("F" & x) = 0 And .Range("G" & x) > 0 Then
                .Range("F" & x) = ""
                .Range("E" & x) = .Range("D" & x)
                With .Range("F" & x & ":G" & x)
                    .HorizontalAlignment = xlCenter
                    .Merge
                End With
            ElseIf .Range("F" & x) > 0 And .Range("G" & x) = 0 Then
                .Range("G" & x) = ""
                .Range("E" & x) = .Range("C" & x)
                With .Range("F" & x & ":G" & x)
                    .HorizontalAlignment = xlCenter
                    .Merge
                End With
            Else
            End If
        Next x
    End With
End Sub
    1
    1. nonossov Messages postés 638 Statut Membre
       
      j'ai pas obtenu la résultat souhaité,
      j'ai pas bien expliqué, dzl
      je veux que les colonnes F et G seront un seul colonne,
      essayer le code sur le fichier ci-jointe 
      www.cjoint.com/data/0CqlmyAFJ6I.htm


      Merci infiniment
      0
      1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > nonossov Messages postés 638 Statut Membre
         
        Re,
        C'est avec votre fichier que j'ai ecrit le code: https://www.cjoint.com/c/ECqnCy7Rty4

        je veux que les colonnes F et G seront un seul colonne, Fusionne, ca veut dire quoi pour vous ??????
        0
    2. nonossov Messages postés 638 Statut Membre
       
      Oui la fusionne est faite mais il reste le colonne E qui ne contient pas les "D" et "C"
      voila la résultat souhaité pour bien compris
      https://www.cjoint.com/c/ECqnHCUKGZV
      merci Beaucoup
      0
      1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > nonossov Messages postés 638 Statut Membre
         
        Re,

        J'avais compris qu'il fallait mettre le contenu des cellules C ou D.
        Je rectifie

        A+
        0
  2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

    demande de depart: F=0 E="D", G=0 E="C" 

    Sub Bouton1_Cliquer()
    With Worksheets("feuil1")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
        For x = 1 To derlig
            If .Range("F" & x) = 0 And .Range("G" & x) > 0 Then
                .Range("F" & x) = ""
                .Range("E" & x) = "D"
                With .Range("F" & x & ":G" & x)
                    .HorizontalAlignment = xlCenter
                    .Merge
                End With
            ElseIf .Range("F" & x) > 0 And .Range("G" & x) = 0 Then
                .Range("G" & x) = ""
                .Range("E" & x) = "C"
                With .Range("F" & x & ":G" & x)
                    .HorizontalAlignment = xlCenter
                    .Merge
                End With
            Else
            End If
        Next x
    End With
End Sub
    1
    1. nonossov Messages postés 638 Statut Membre
       
      Vous Etes Génial Mr, Très bon travail, juste une petit remarque,
      quant la fusionne se fait il garde le colonne G qui'est vide et je dois le supprimer manuellement si vous pouvez le corriger sera trés magnifique sinon,
      je suis très satisfait de votre travail Mr beaucoup,
      0
      1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > nonossov Messages postés 638 Statut Membre
         
        Re,

        attention, ca ne marche qu'une fois 

        Sub Bouton1_Cliquer()
    With Worksheets("feuil1")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
        For x = 1 To derlig
            If .Range("F" & x) = 0 And .Range("G" & x) > 0 Then
                .Range("F" & x) = .Range("G" & x)
                .Range("E" & x) = "D"
            ElseIf .Range("F" & x) > 0 And .Range("G" & x) = 0 Then
                .Range("E" & x) = "C"
            Else
            End If
        Next x
        .Columns("G:G").Delete Shift:=xlToLeft
    End With
End Sub
        0
    2. nonossov Messages postés 638 Statut Membre
       
      Merci Merci Merci infiniment
      0

Discussions similaires

Reactiver la fusion des cellules, tableau exc
chector10 -
chector10 -

38 réponses
Impossible fusionner cellules
aubli -
Christian -

3 réponses
Excel : afficher toutes les lignes et colonnes masquées
livlarsen -
Mehdiiii -

27 réponses