Discussion :

[kent010]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[casefayere]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kent010]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Explicit

Merci encore.

[casefayere]

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

Edit : Penses à cliquer sur si tel est le cas

[kent010]

Okey merci casefayere.
Bonne journée.