Discussion :

[mauriceguillier]

Bonjour à tous,

Je suis un tout petit amateur VBA qui construit quelques macros pour ajouter ou supprimer des produits sur des bons de commandes.

Mon problème est le suivant, lors de suppression d'un produit de la liste, par recherche d'une variable, obtenue par une boîte Inputbox, je sélectionne la cellule qui contient le nom du produit recherché. Afin de ne pas provoquer de "trous" dans la liste des produits disponibles, je souhaiterais sélectionner toute la ligne, correspondant à cette cellule, pour la supprimer.

Or, ne connaissant pas l'adresse absolue de la dite cellule, je n'arrive pas à écrire la ligne de commande du genre "Rows ("ligne1:ligne1").Select" puisque je ne connais pas la référence absolue de ligne1.

J'ai donc besoin d'un bon coup de main.

En vous remerciant par avance pour votre aide,
Très cordialement,
Maurice

[rjamin]

Bonjour,

Je propose ceci.
Le curseur positionner sur une cellule de la ligne lancer la macro suivante

Code :

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

1
2
3
4
5
Sub Efface_Ligne()
 
    ActiveCell.EntireRow.Delete
 
End Sub

[mauriceguillier]

Rebonjour,

Je remercie rjamin car cette macro fonctionne comme je le souhaite .

S je puis me permettre , à nouveau, je soumets le même environnement mais au lieu de sélectionner toute la ligne, je voudrais, dans une autre feuille de mon classeur, ne supprimer qu'une plage de cellules à partir de la cellule active récupérée par la variable.

En somme, si ma variable m'a amené sur la cellule (L3C2), comment puis-je sélectionner la plage (L3C2:L3C5) sachant que L3C2 ne m'est pas connu sur l'instant.

A nouveau merci d'avance pour l'aide car je patauge pas mal sur sélections à partir de variables.

Bonne soirée,
Maurice

[rjamin]

Bonsoir,

Je propose ceci

Code :

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

1
2
3
4
Sub Selection_Plage()
'Pour selectionner une plage allongée de 3 colonnes vers la droite à partie de la cellule active
    Range(ActiveCell, ActiveCell.Offset(0, 3)).Select
End Sub

OFFSET(0,3) pour décaler la sélection de 3 colonnes à droite en restant sur la ligne de la cellule active.

[mauriceguillier]

Bonjour,

Pour vous remercier !

Vraiment très satisfait pour cette formation

Très cordialement,
Maurice