Je rencontre un problème en VBA dans Excel
Je vous l'explique ci dessous mais le mieux serait que je puisse présenter mon classeur en pièce jointe.
 
Explicatif du problème rencontré    
 
Je récupère des valeurs dans les cellules C4:F5    
par une formule en C11:F12  
 
J'ai besoin de récupérer ces valeurs en C11:F12    
puis de les coller dans un tableau C21:F28    
 
Lorsqu'une valeur est absente en C4:F5      
je n'ai donc rien en C12:F12 (normal)      
Mais quand je copie C11:F12 en C17:F18 (Edition coller / valeurs / blancs non compris)      
J'ai des cellules C18:F18 qui n'ont pas de caractère, mais qui ne sont pas considérées comme vides      
Je peux le vérifier en selectionnant C17:F24 (Edition atteindre / Cellules / cellules vides)      
Ma selection est alors C19 :F24      
 
Cela m'embête car lorsque je renouvelle l'opération par macro :
 
Range("C16" ).Select
    Selection.End(xlDown).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
 
Les données sont collées en C19 car C18:F18 ne sont pas considéres comme vides
 
 
Merci à qui pourra m'aider

mets en pièce jointe ton fichier excel stp www.cjoint.com

Je comprends rien à ton problème ... mis à part que tu as l'air d'avoir un problème.  

 
 
http://cjoint.com/?menkkUMVKf
 
Merci d'avance pour votre aide

 
 
Annule et remplace le précédent
 
http://cjoint.com/?menuZEb7bu

 
 
Voici mon classeur joint : http://cjoint.com/?menuZEb7bu

bonjour, j'ai vu ton fichier et tout ! Comme tu copies deux lignes, il serait normal d'avoir une ligne blanche entre tes deux copies, même si tes cases sont vides, mais elles ont bien une formule à l'intérieur (ton =Si etc).
pour ma part, je contournerais le pb en passant par une autre méthode, mais ca dépend aussi de la structure habituelle.
Je m'explique: si tu toujours dans tes cellules tes formules SI, ton contenu de cellule sera attribué quelles que soient les valeurs de cases C4:F5. Au lieu de faire ton skipblank qui ne marche apparemment pas dans ce cas, tu peux faire un copier coller "fait maison" avec un test à toi  
if .value = "" then
else
copier//coller
next
 
tu vois l'idée ?
bonne continuation.

Bonsoir,
null est différent de Empty
proposition:
 
Sub cop()
Range("c11:f12" ).Select
For Each ss In Selection
If IsNull(ss.Value) Then ss = Empty
Next ss
Range("c11:f12" ).Select
Selection.Copy
Range("C16" ).Select
    Selection.End(xlDown).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
 
End Sub
Cordialement