Reporter que des cellules non vides

[DSOL]

Bonjour
j’ai un classeur avec des données sur une feuille et je dois compiler les remarques sur une autre feuille j’ai tout essayé sans succès
du coup je fais manuellement mais quelle perte de temps par contre je ne maitrise pas du tout la VBA
Merci
test cellules.xlsx (18,5 Ko)

[taz067]

Hello
le nombre de cellules fusionnées ne simplifie pas la chose !

[Cow18]

Sub DSOL()
     With Sheets("controle")
          If .AutoFilterMode Then .AutoFilterMode = False     'désactiver autofilter
          If .FilterMode Then .ShowAllData

          With .Range("A3:L35")              'votre plage
               .AutoFilter 9, "<>"           'les commentaires
               b = (.Columns(1).SpecialCells(xlVisible) > 1)     'il y a des commentaires ?
               If b Then                     'OUI
                    .Offset(1).Resize(.Rows.Count - 1).Copy     'copier
                    With Sheets.Add          'vers une feuille nouvelle
                         With .Range("A1")
                              .PasteSpecial xlValues     'coller
                              .Offset(, 1).Resize(, 7).EntireColumn.Delete     'supprimer les colonnes inutiles
                              aa = .CurrentRegion.Resize(, 2).Value     'lire le contenu util
                         End With
                         Application.DisplayAlerts = False
                         .Delete             'supprimer nouvelle feuille
                         Application.DisplayAlerts = True
                    End With

                    With Sheets("recap").Range("A5:C16")     'votre plage dans la feuille "RECAP"
                         .ClearContents      'vider
                         .Resize(UBound(aa), UBound(aa, 2)).Value = aa     'coller
                         .Resize(1).EntireColumn.AutoFit     'ajuster colonne A
                    End With

               Else
                    MsgBox "no commentaires", vbInformation
               End If

               .AutoFilter
          End With
     End With

End Sub

test cellules.xlsm (32,1 Ko)

[DSOL]

merci je peux essayer de défusionner par contre je ne sais même pas comment faire avec cette formule VBA merci beaucoup je vais y travailler demain

[Cow18]

Cette macro se trouve dans le module1. Vous pouvez ajouter un bouton pour rendre les choses plus facile.

[DSOL]

merci beaucoup il faut que je me forme sur les macros c’est l’avenir