Excel ne veut pas recopier uniquement les valeurs

Question

Voici mon problème, j'ai réalisé une petite macro copier/coller d'une plage de cellules vers un autre classeur, pas de problème cela je sais faire sans souci (habituellement), je la recopie sur la première cellule vide de la colonne "A". Voici le code de la macro &#91;code&#93;&#91;Sub essai_nouvelle_macro() ' ' essai_nouvelle_macro ' ' Windows("Facturation.xlsm").Activate Range("J15:P38").Select Selection.Copy Windows("Journal de facturation.xlsm").Activate Range("A65536").End(xlUp)(2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Facturation.xlsm").Activate Range("H16").Select End Sub/code&#93; Mon souci c'est que la plage copiée ( J15:P38) contient des formules dans chaque cellule, et comme le remplissage des cellules varie, je suis obligé de copier toute la plage, donc lorsque je colle dans l'autre classeur, il me colle les cellules qui non pas de valeurs, et lors du second copier/coller, j'ai un espace de cellules sans valeur, ni formule apparente, qui me crée un vide. Je cherche donc auprès de vous, une solution, pour que les cellules qui ne contiennent pas de valeur mais uniquement des formules, ne soient pas copiées. J'ai tout essayé "collage spécial &gt; valeurs " et "valeurs et formes " rien ni fait. Merci d'avance pour votre aide. Cordialement Dubdub22...

ouisansdoute · Accepted Answer

C'est ta sélection que tu dois travailler. Faire d'abord une macro pour ne sélectionner que les cellules non vides. Par exemple : Sub chercheNonVide() Dim c, celVides, celNonVides As Range Set celVides = Selection.SpecialCells(xlCellTypeBlanks) For Each c In Range("J15:P38") If Not (IsEmpty(c)) Then If celNonVides Is Nothing Then Set celNonVides = c.CurrentRegion Else If Intersect(c, celNonVides) Is Nothing Then Set celNonVides = Union(celNonVides, c.CurrentRegion) End If End If End If Next c End Sub...