Discussion :

[salsitawapa]

Bonsoir à tous, voila j'essaie de monter des cellules qui sont écrite pour les mettres à la place de cellules vide. J'ai ce code qui fonctionne :

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
Sub Monter()
Dim PlageSource As Range
 
On Erreur GoTo Erreur
 
Set PlageSource = Application.InputBox _
        ("Sélectionner à partir des cellules vides jusqu'à la dernière cellules à monter ! ", "Sélection Plage", Type:=8)
 
PlageSource.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
 
 
Exit Sub
 
Erreur:
If Err.Number = 424 Then Exit Sub
 
End Sub

Le soucis avec se code est que sa me monte toutes les cellules (même celles qui ne sont pas selectionnée). Est-ce que quelqu'un sait comment faire ? Merci de vos réponse

[conconbrr]

Euh ben comme ça je dirais que c'est normal vu que tu supprimes les lignes vides... Tout le reste remonte donc automatiquement...

Si tu veux "Monter" juste tes cellules sélectionnées le mieux c'est sans doute de les couper et de les recoller.
J'ai modifié ton code de la manière suivante :

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
Sub Monter()
    Dim PlageSource As Range
    Dim wsFeuilleActive As Worksheet
    Dim wsNouvelleFeuille As Worksheet
    
    Application.ScreenUpdating = False
    
    On Error Resume Next
    
    Set wsFeuilleActive = ActiveSheet
    Set PlageSource = Application.InputBox _
    ("Sélectionner à partir des cellules vides jusqu'à la dernière cellules à monter ! ", "Sélection Plage", Type:=8)
    
'---->Ajoute une nouvelle feuille, y copie ta plage et efface les valeurs de la plage initiale

    Set wsNouvelleFeuille = Worksheets.Add
    PlageSource.Copy Destination:=wsNouvelleFeuille.Range("a1")
    PlageSource.Clear
    
'---->Efface les blancs et recopie la plage modifiée à la place de l'ancienne
    
    wsNouvelleFeuille.Range("A1", Cells(PlageSource.Rows.Count, PlageSource.Columns.Count)).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    wsNouvelleFeuille.UsedRange.Copy Destination:=PlageSource.Cells(1, 1)
    
'---->Efface la feuille créée et réactive la première
    
    Application.DisplayAlerts = False
    wsNouvelleFeuille.Delete
    Application.DisplayAlerts = True
    
    wsFeuilleActive.Activate
    
    Application.ScreenUpdating = True
    
End Sub

Dis moi si ça correspond à ce que tu voulais

[jmfmarques]

D'instinct et par ce que je n'aime pas "me faire du rentre-dedans", je ferais une boucle décroissante, de la dernière cellule à la première, en supprimant au passage les cellules vides.
De cette façon, je ne risquerais pas de me faire des croche-pieds avec des modifications de position des cellules du fait de la suppression de celles qui étaient vides.

[salsitawapa]

Bonjour, oui sa marche, le seul soucis est que ma boite de dialogue qui s'ouvre pour sélectionner les cellules ne fonctionne plus avec la souris (pour sélectionner il faut les taper manuellement). Est-ce qu'il y a une petite modif à faire pour que l'on puisse se servir de la souris sur la boite de dialogue ?
Sinon, j'ai modifié un endroit du code pour ne pas qu'il m'efface les bordures :
Set wsNouvelleFeuille = Worksheets.Add
PlageSource.Copy Destination:=wsNouvelleFeuille.Range("a1")
PlageSource.ClearContents

Voila merci pour l'aide et si quelqu'un peut me dire comment faire pour pouvoir sélectionner avec la souris sa serai bien. Merci

[SfJ5Rpw8]

....
Voila merci pour l'aide et si quelqu'un peut me dire comment faire pour pouvoir sélectionner avec la souris sa serai bien. Merci

ben un userform et le contrôle refEdit..

[salsitawapa]

Bonjour, le soucis est que avant (avec le 1er code que j'ai mis), il n'y avait pas besoin de userform et refedit. Y a t'il un autre moyen pour pouvoir se reservir de la souris ? comme il était possible avec la suppression des lignes ?
Merci