cellules vides en fait pas vides

[vekm]

Bonjour à tous

je rencontre le pb suivant: je copie une plage de données dont certaines sont vides (il y a une formule dedans qui rend un résultat "") pour les coller dans un autre onglet à la fin des données

mais comme il considère que les cellules contenant "" ne sont pas vides, il les copie à la fin aussi et ça me décale tout chaque fois en laissant des lignes vides
voici le code, je suis désolée je suis vraiment novice, alors soyez indulgents!!


Private Sub CommandButton1_Click()
Range("B6").Select
Selection.Copy
Sheets("BD PA").Select
Sheets("BD PA").Range("A1000").End(xlUp).Offset(1, 0).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("NV PA").Select
Range("B8").Select
Selection.Copy
Sheets("BD PA").Select
Sheets("BD PA").Range("C1000").End(xlUp).Offset(1, 0).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("NV PA").Select
Range("D17:G20").Select
Selection.Copy
Sheets("BD REJETS ET BIOB").Select

Sheets("BD REJETS ET BIOB").Range("A1000").End(xlUp).Offset(1, 0).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("SOMMAIRE").Select
End Sub

 

[Guest]

Re : cellules vides en fait pas vides

bonjour Vekm,

Si j'ai bien compris (ce n'est pas évident sans fichier exemple)

Essaie quelque chose comme ceci:

 Range("B6").SpecialCells(xlCellTypeConstants).Copy _
    Destination:=Sheets("BD PA").Range("A1000").End(xlUp).Offset(1, 0)

Seules les résultats et non pas les formules seront copies/collés les cellules contenant "" devraient être évitées.

Si cela ne va pas, il te faudra nous créer un fichier avec exemple de ce que tu veux.

A+

 

[vbacrumble]

Re : cellules vides en fait pas vides

Bonjour


Peux-tu essayer le code VBA ci-dessous,stp?

Sub macro()
Dim i
Range("B6").Copy Sheets("BD PA").Range("A1000").End(xlUp).Offset(1, 0)
    With Sheets("NV PA")
        .Range("B8").Copy Sheets("BD PA").Range("C1000").End(xlUp).Offset(1, 0)
        .Range("D17:G20").Copy Sheets("BD REJETS ET BIOB").Range("A1000").End(xlUp).Offset(1, 0)
    End With
For i = 2 To Worksheets.Count
On Error Resume Next
Worksheets(i).Cells.SpecialCells(xlCellTypeFormulas, 16).ClearContents
Next
Sheets("SOMMAIRE").Select
End Sub

A+

 

[vekm]

Re : cellules vides en fait pas vides

merci à vous Hasco et vbacrumble
je vais tester tout ça cet aprem, là je vais devoir aller en réunion

c'est super ce forum vraiment
vekm

 

[vekm]

Re : cellules vides en fait pas vides

Bon en fait ça ne marche pas, du moins avec la formule de HAsco
je n'ai pas testé l'autre encore

je joins un petit fichier

merci pour votre aide

 

[vekm]

Re : cellules vides en fait pas vides

avec le fichier c'est mieux

 

[Guest]

Re : cellules vides en fait pas vides

Re,

Vois si cela te convient, testé avec ce que 'ai compris de ton besoin et tes données.

Private Sub CommandButton1_Click()
    Dim lig As Long
    Dim r As Range
    'Attention aux '.' devant Range
    'lorsqu'il n'y a pas de '.' devant range excel considère qu'il
    's'agit d'une plage de cellule de la feuille active (ici NV PA)
    With Sheets("BD PA").Range("a1000").End(xlUp).Offset(1, 0)
        .Value = Range("B6").Value 'Pas de point devant Range -> NV PA
        .Offset(, 2) = Range("B8").Value ' Idem
    End With
    
    For Each r In Range("D17:G20").Rows
        If r.Cells(1, 1) <> "" Then
            With Sheets("BD REJETS ET BIOB").Range("A1000").End(xlUp).Offset(1, 0)
                .Value = r.Cells(1, 1)
                .Offset(, 1) = r.Cells(1, 2)
                .Offset(, 3) = r.Cells(1, 4)
'Décommenter ci-dessous pour récupérer le format de la ligne du dessus colonne A à D
                '.Offset(-1).Resize(, 4).AutoFill .Offset(-1).Resize(2, 4), xlFillFormats
            End With
        End If
    Next
End Sub

A+

 

[vekm]

Re : cellules vides en fait pas vides

super Hasco, ça marche au poil
merci bien

tu ne saurais pas comment faire un lien hypertexte qui pointe sur un onglet graphique? je n'y arrive pas

V