Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Effacer une selection de plage par inputbox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Benjo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

Benjo

Guest
Salut à tous,

J'ai un petit soucis, je viens donc demander à l'aide auprès de cette superbe communauté.

Je souhaite avoir un bouton qui lancera une inputbox qui demande le numero de la ligne à effacer. Donnons par exemple que l'utilisateur choississe la ligne x

Je voudrais que ca efface automatique la selection qui va de BX à QX (B et Q etant les colonnes fixées, et X la ligne choisie par l'utilisateur).

J'ai immaginé un truc, mais ca fonctionne pas :d :

Code: 
Private Sub CommandButton1_Click()
    Dim ligne
    If MsgBox("Voulez-vous reellement effacer une ligne ?", vbYesNo) = vbYes Then
       
    ligne = InputBox("Quel est le numéro de la ligne à effacer?")
    Sheets("feuil3").Select
    Range("ligne,B:ligne,Q").Select
    Selection.ClearContents
      
    Else
    End If
end sub

Sachant que la selection choisie devra etre effacée dans près de 8 feuilles différentes.

De plus, mais c'est accessoire, si c'est possible, peut on remplacer le inputbox par une liste déroulante de nom provenant d'une colonne dans une autre feuille. ?

Je m'explique : sur la feuille 1 j'ai sur la colonne A la colonne "nom", donc sur toutes les lignes, j'ai pleins de nom.
Peut on faire apparaitre dans une liste déroulante les noms qui sont dans la colonne A, et quand on choisi un nom, ca selectionne directement le numero de la ligne du nom... Mais bref, si j'ai pas été clair, c'est pas tres grave, oubliez ca.

En tout cas, merci beaucoup de votre aide 😉

@+
 
Trier par date Trier par votes
Re : Effacer une selection de plage par inputbox

Bonjour à tous,

Même si ce que te propose Staple est plus abouti, j'aimerais bien savoir pourquoi
Code: 
Range("B" & ligne & ":Q" & ligne).Select

ne fonctionne pas. je viens de tester et aucun soucis...

je fais remarquer que je suis aussi plutôt adepte de Application.Inputbox à la place de Inputbox
 
Vote positif 0 Vote négatif
Re : Effacer une selection de plage par inputbox

Merci bien les amis, ca fonctionne.

Mais vous avez raison, ca peut etre interressant d'utiliser application. Est il possible que lorqu'on appuis sur le bouton "Yes", un feuille particulière soit ouverte, et que l'utilisateur appuis sur une cellule précise (par exemple C12), ca efface automatiquement la plage C12:Q12 ?
 
Vote positif 0 Vote négatif
Re : Effacer une selection de plage par inputbox

Bonjour à tous,

mais oui c'est possible :

Code: 
Sub toto()
Dim ligne as long, Plg as range
If MsgBox("Voulez-vous reellement effacer une ligne ?", vbYesNo) = vbYes Then
sheets(1).activate
set Plg = Application.InputBox("Sélectionnez une cellule de la ligne à effacer !", _
"Effacement de la sélection", Type:=8)

Sheets(1).Range("B" & plg.row & ":Q" & plg.row).ClearContents
Else
End If
End Sub
 
Vote positif 0 Vote négatif
Re : Effacer une selection de plage par inputbox

Yes, c'est top, ca fonctionne niquel !

Par contre, comme j'ai beaucoup de feuille j'ai essayé de faire une boucle; et ca donne ca :

Code: 
Sub suppression_ligne()

Dim ligne As Long, Plg As Range, article As String



If MsgBox("voulez vous supprimer ?vbYesNo) = vbYes Then
for i = 2 to 8

Sheets(i).Activate
Set Plg = Application.InputBox("Sélectionnez l'article à effacer", _
"Effacement de la sélection", Type:=8)
article = Plg

Sheets(i).Range("B" & Plg.Row & ":Q" & Plg.Row).ClearContents

next 

MsgBox ("L'article " & article & " est définitement effacé de TOUS les services.")

Else
MsgBox ("Rien n'est effacé!")

End If

End Sub

Mais ca marche pas...

une idée ?

Merci à tous 😉
 
Vote positif 0 Vote négatif
Re : Effacer une selection de plage par inputbox

j'ai essayé avec un with, ca donne ca :

Code: 
Sub suppression_ligne2()

Dim  Plg As Range, article As String


If MsgBox("voulez vous supprimer ?", vbYesNo) = vbYes Then




Sheets("article et stock").Activate

Set Plg = Application.InputBox("Sélectionnez l'article à effacer", _
"Effacement de la sélection", Type:=8)
article = Plg

For i = 3 To 13
with Sheets(i).Range("B" & Plg.Row & ":Q" & Plg.Row).ClearContents

end with

Next i

MsgBox ("L'article " & article & " est définitement effacé de TOUS les services.")

Else
MsgBox ("Rien n'est effacé!")

End If

End Sub

Mais ca bloque au with...
 
Vote positif 0 Vote négatif
Re : Effacer une selection de plage par inputbox

bonjour à tous

soit tu ecris
Code: 
For i = 3 To 13
with Sheets(i).Range("B" & Plg.Row & ":Q" & Plg.Row)
      .ClearContents
end with
Next i
soit :
Code: 
For i = 3 To 13
     Sheets(i).Range("B" & Plg.Row & ":Q" & Plg.Row).ClearContents
Next i

quand tu uitlises with, c'est avec un objet, pas une methode
 
Vote positif 0 Vote négatif
Re : Effacer une selection de plage par inputbox

En fait, aucune des methodes ne fonctionnent.

Ya un bug à chaque fois après le for.

je comprends pas, c'est pas possible de faire une boucle à travers différentes feuilles ?
 
Vote positif 0 Vote négatif
Re : Effacer une selection de plage par inputbox

re:

si c'est possible

for i = 3 to 3 implique que tu boucles de la feuille 3 à la feuille 13 soit 11 feuilles

sheets(i) ---> indique que tu utilises l'index de la feuille et nom son nom

n'ayant pas ton fichier, je ne sais pas comment il est fait, maintenant si de 3 à 13, c'est le nom de tes feuilles elors il faut ecrire sheets("" & i)

mais sans un exemple de ton fichier dur de repondre car la syntaxe que je t'ai donnée est ok
 
Vote positif 0 Vote négatif
Re : Effacer une selection de plage par inputbox

en fait j'ai compris pkoi ca fonctionne pas,
car il fallait pas faire de 3 à 13 (au passage, je parle bien de l'indexation des feuilles et non des noms).
Chez moi, ca fonctionne en deux étapes:

sheets("feuil3") blabla

Puis
For i = 4 to 13

sheets (i) blavla


Voili voilou.

Merci beaucoup,

grace à vous, j'ai reussi un faire un fichier tip top 😀

@++
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
426
DAVID-44-
J
  • Question Question
Microsoft 365 Zone de nom - Créer un nom
Réponses
3
Affichages
166
danielco
D
P
  • Question Question
Autres moyenne de plusieurs lignes et colonnes sous deux conditions
Réponses
8
Affichages
413
podarck
P
C
  • Question Question
Microsoft 365 Incrémenter une liste par rapport à une 1ere liste
Réponses
2
Affichages
148
Chris5633
C
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
369
Cousinhub
A
  • Question Question
Microsoft 365 créer un lien vers une cellule dont la ligne est fluctuante
Réponses
3
Affichages
340
AtTheOne
O
  • Résolu(e)
XL 2013 Formule ou une programmation VBA qui permette de répartir des numéros de factures par ligne
Réponses
3
Affichages
306
JHA
J
P
  • Question Question
XL 2021 Macro de découpage suivant une clé
Réponses
14
Affichages
518
job75
  • Question Question
XL 2016 graphique avec pilotage
Réponses
0
Affichages
188
richardlion
C
  • Résolu(e)
Microsoft 365 Recherche de doublons à plusieurs critères sur plusieurs colonnes
Réponses
4
Affichages
361
job75
Z
  • Question Question
XL 2021 InputBox and focus à la fin de la ligne d'une valeur par défaut
Réponses
4
Affichages
602
zedude
Z
A
  • Question Question
Microsoft 365 récupérer des valeurs après un filtre en VBA (pour envoyer des emails)
Réponses
6
Affichages
326
aurejotrail
A
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
872
piga25
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
411
lestoiles1
A
  • Question Question
XL pour MAC Formatage de fichiers de coordonnées
Réponses
10
Affichages
488
agnesd
A
D
  • Résolu(e)
Microsoft 365 Remplacement #REF! par 0 dans une formule SIERREUR
Réponses
5
Affichages
254
vgendron
M
  • Résolu(e)
XL 2013 Etendre automatiquement une formule de calcul
2
Réponses
29
Affichages
1 K
Manutela
M
  • Résolu(e)
XL 2019 Extraction de données dans une autre plage !
Réponses
6
Affichages
603
Caninge
O
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellules si une autre cellule est vide
Réponses
9
Affichages
607
Olihoes
O
  • Question Question
XL 2021 Déclaration de variables à partir d'une liste de noms
Réponses
8
Affichages
591
PMG
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…