Probléme avec la fonction paste!

Bonjour a vous et merci de prendre du temps pour me lire.

Voila je désire réaliser un programme qui remonte les informations de deux colonnes en les remontant une a unes de telle sorte qu'il n'y est plus de cellules vides entre les informations (les cellules en question ne dont pas vide, en réalité elle contienne un espace.)
Je suis parvenu a coder se programme et a l'exécuter avec succès dans un dossier excel vide de toutes autres macros:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

Sub SupprimeCelluleVide()   'Vide les cellules comprenant uniquement un espace de la colonne   Range("F1").Select 'selectionne la 1er case de la colonne ou on veux effectuer la supression d'espace i = 0   While i <> 5   If ActiveCell.Value = " " Then i = 0 Selection.ClearContents ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate Else ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate i = i + 1   End If Wend   'Remonte les valeur une a une pour ne plus avoir de trous dans la colonne   i = 1   While LigneOrigine <> 1048576 'cf parenthése ci dessous 'selectionne la 1er cases non vide (sauf le titre)(retourne 1048576 si pas d'élément trouver) LigneOrigine = Range("F1").Offset(LigneCible, 0).End(xlDown).Row 'MsgBox "LigneOrigine= " & LigneOrigine 'selectionne la 1er case vide (sauf le titre)(idem pour avoir le numéro de ligne) LigneCible = Range("F1").Offset(i, 0).End(xlUp).Offset(1, 0).Row 'MsgBox "LigneCible= " & LigneCible i = i + 1 'Couper coller Range("F1").Offset(LigneCible - 1, 0).Select Range("F1:G1").Offset(LigneOrigine - 1, 0).Select Application.CutCopyMode = False Selection.Cut Range("F1").Select Range("F1").Offset(LigneCible - 1, 0).Select ActiveSheet.Paste   Wend   End Sub

---

Mon programme principale ouvre un dossier excel en ".SCV" remonte les informations des colonnes F et G, puis copie toutes les donnés de la feuille ouverte et les colle dans la feuille contenant ma macro.
La partie bugé est donc la partie du programme précédant qui au lieux de couper/coller mes donner de la colonne F&G a cette même colonne il me les colle dans la cellule A1 du classeur contenant mon programme principale.

Pour une plus grande compréhension du dis programme je vous encourage a télécharger les 2 pièces jointent. Regarder en pas a pas ce qu'il se passe dans le programme ThisWorkbhook du fichier "test copie" en ouvrant suite a la demande de la macro le fichier "30101425" et bien sure me retourner une solution si vous parvenez a trouver le bug.

Merci de votre attention et désolé pour les fautes d'orthographe que j'ai dut laisser trainer malgré moi dans se message. :D

Bonsoir,

Déjà je transformerais ta première partie ainsi (explications dans le code)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Option Explicit 'ne pas oublier     Sub SupprimeCelluleVide() ' declarer déjà ses variables Dim x As Long Dim Dl As Range 'exemple pour colonne F With Sheets("Feuil1") 'Feuil1 à changer par le nom de ta feuille Set Dl = .Range("F" & .Rows.Count).End(xlUp) 'on va déjà chercher la derniere cellule non vide 'ci-dessous, on cherche les cellules contenant uniquement " " et on les supprime For x = Dl.Row To 1 Step -1'en commençant par la fin pour éviter les erreurs If .Range("F" & x) = " " Then .Range("F" & x).Delete Shift:=xlUp 'ou si tu supprimes les cellules vides aussi If .Range("F" & x) = " " Or .Range("F" & x) = "" Then .Range("F" & x).Delete Shift:=xlUp Next x End With End Sub

---

quand tu auras compris, sois explicite pour le reste

Merci de la réponse, le programme fonctionne très bien est résout mon problème (en le contournant :) ).
Néanmoins peut tu stp m'indiquer l'utilité de la première ligne de ton code:

Code:

---

Option Explicit

---

Merci encore.

Bonjour,

il faudrait que tu cherches un peu, c'est une notion de base qui si elle n'est pas spécifiée, permet d'utiliser n'importe quelle variable avec un grand risque d'erreur, il faut donc la provoquer en haut de tous les modules (voir l'aide) et cela t'obligera à déclarer toutes tes variables (dim as string, as Long, as integer...., public as ....) voir aussi les déclarations de variables...

Bonne journée et mouilles-toi un peu :lol::lol:

Edit : Penses à cliquer sur :resolu: si tel est le cas

Okey merci casefayere.
Bonne journée.