rendre un code VBA interactif ?

PascalXLD

XLDnaute Barbatruc

Modérateur

• 16 Avril 2009

• #2

Re : rendre un code VBA interactif ?

Bonjour

essaies

Sub test()
Dim i As Integer, x as byte
x= inputbox("quelle colonne en nombre ?")
For i = 7344 To 6 Step -1
If IsEmpty(Cells(i, x)) Then Rows(i).Delete
Next i
End Sub

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 16 Avril 2009

• #3

Re : rendre un code VBA interactif ?

Bonjour,

Code:

Sub test()
    Dim i As Integer
    Set Cell = Application.InputBox("Sélectionner la colonne", "Sélection d'une colonne", Type:=8)
    Col = Cell.Column
    For i = 7344 To 6 Step -1
        If IsEmpty(Cells(i, Col)) Then Rows(i).Delete
    Next i
End Sub

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 16 Avril 2009

• #4

Re : rendre un code VBA interactif ?

bonjour SOYA

Vois si cela te convient
nb: chiffres a adapter dans test

Edit : salut RENAUDER

 

Pièces jointes

• SOYA_purge.zip

  9.9 KB · Affichages: 27

Vote positif 0 Vote négatif

SOYA

XLDnaute Occasionnel

• 16 Avril 2009

• #5

Re : rendre un code VBA interactif ?

Ouaaah ! Merci merci merci !

Vos trois solutions fonctionnent. C'est mes collègues qui vont être contents !

J'en apprends tous les jours grâce à vous !

 

Vote positif 0 Vote négatif

SOYA

XLDnaute Occasionnel

• 20 Avril 2009

• #6

Re : rendre un code VBA interactif ?

PascalXLD à dit:

Bonjour

essaies

Sub test()
Dim i As Integer, x as byte
x= inputbox("quelle colonne en nombre ?")
For i = 7344 To 6 Step -1
If IsEmpty(Cells(i, x)) Then Rows(i).Delete
Next i
End Sub

Cliquez pour agrandir...

Bonjour Pascal,

Dans ton exemple ci-dessus, lorsqu'on clique sur "Annuler" au lieu de saisir un numéro de colonne, on obtient un message de débogage. Que manque-t-il pour que le bouton "Annuler" fonctionne ?

Merci !

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 20 Avril 2009

• #7

Re : rendre un code VBA interactif ?

Bonsoir,
Pour gérer l'erreur de saisie ou l'annulation

Code:

Sub test()
Dim i As Integer, x As Byte
On Error Resume Next
x = InputBox("quelle colonne en nombre ?")
If x = 0 Then Exit Sub
For i = 7344 To 6 Step -1
If IsEmpty(Cells(i, x)) Then Rows(i).Delete
Next i
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

SOYA

XLDnaute Occasionnel

• 20 Avril 2009

• #8

Re : rendre un code VBA interactif ?

Merci pour ton aide Kjin, mais avec cette modification, lorsque je clique sur "Annuler", le code efface toutes les lignes de mon tableau ! Il doit encore manquer un petit quelque chose...

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 20 Avril 2009

• #9

Re : rendre un code VBA interactif ?

Re,
Pas chez moi !
A+
kjin

 

Vote positif 0 Vote négatif

SOYA

XLDnaute Occasionnel

• 20 Avril 2009

• #10

Re : rendre un code VBA interactif ?

Je me confonds en excuses bien sincères... J'avais oublié le petit bout If x = 0 Then Exit Sub

Ha la la, ces débutants !

Merci mille fois !

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 20 Avril 2009

• #11

Re : rendre un code VBA interactif ?

Bonsoir


Une autre approche (le choix de la colonne se fait à la souris)

Code:

Sub test()'décalage vers le haut des cellules vides
Dim ncol As Range
On Error Resume Next
Set ncol = _
Application.InputBox(prompt:="Sélectionner entete de colonne", Title:="Selection", Type:=8)
Columns(Split(ncol.Address, "$")(1)).SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp
End Sub

Code:

Sub test2()'suppression lignes
Dim ncol As Range
On Error Resume Next
Set ncol = _
Application.InputBox(prompt:="Sélectionner entete de colonne", Title:="Selection", Type:=8)
Columns(Split(ncol.Address, "$")(1)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

Dernière édition: 20 Avril 2009

Vote positif 0 Vote négatif

SOYA

XLDnaute Occasionnel

• 20 Avril 2009

• #12

Re : rendre un code VBA interactif ?

Bonsoir VBACrumble,

Merci ! Tout fonctionne.

 

Dernière édition: 20 Avril 2009

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 20 Avril 2009

• #13

Re : rendre un code VBA interactif ?

Re

La deuxième macro comme indiqué supprime les lignes.

(Ajout lors de l'édition de mon message)

 

Vote positif 0 Vote négatif