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

Microsoft 365 effacer à partir de la cellule sélectionnée (ou ligne )

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous,
Je vous souhaite un beau WE

Je travaille sur une macro que je n'ai pas réussi à coder jusqu'à maintenant.

Dans le fichier test joint, j'ai une feuille (extraite de mon classeur de travail), grâce à la listbox de Job75, je peux noter des informations concernant mes ressentis sur mes appels.
Ces informations, client par client sont notées de la cellule AB19 à AE64.
Pour les effacer en cas de besoin, je clic sur le bouton "effacer tout" qui efface sans activer la Listbox (puisque pas d'activation de cellules).

Ma difficulté est d'effacer une ligne choisie de AB à AE car si je clique sur les cellules pour effacer, la Listbox s'active.
La solution serait de pouvoir coder ce qui suit :
- Au clic sur le bouton "efface infos ligne choisie",le code
- me demande quelle est la 1ère cellule à effacer et en utilisant "Range(cellule_choisie.Offset(0, 0), cellule_choisie.Offset(0, 3))"
ou
- me demande quel est le n° de la ligne des cellules à effacer et en utilisant "Cells(ligne_choisie.Row.Offset(0, 24), Cells(ligne_choisie.Row.Offset(0, 3))"

Malgré mes recherches et tentatives, je n'ai pas réussi jusqu'à maintenant.
Auriez-vous le bon code ?
Je joins le fichier test et je continue mes recherches ...
Avec mes remerciements,
Amicalement,
lionel,
 

Pièces jointes

  • effacer_koi.xlsm
    49.2 KB · Affichages: 10
Dernière édition:
Solution
Re,

C'est une réponse à :
Usine à gaz à dit:
Ma difficulté est d'effacer une ligne choisie de AB à AE car si je clique sur les cellules pour effacer, la Listbox s'active.
Cliquez pour agrandir...

Quand vous sélectionnez une cellule de AB, AC, AD ou AE choisissez l'item 'Effacer' dans la listbox et la cellule s'effacera !

Si vous voulez effacer les infos de la ligne, vous pouvez mettre comme choix : "Effacer infos ligne" et sur listbox1_change :
VB: 
Private Sub ListBox1_Change()
    If ListBox1 = "Effacer infos ligne" Then
        Range("AB" & ActiveCell.Row & ":AE" & ActiveCell.Row) = Empty
    Else
        ActiveCell = ListBox1
    End If
    [A1].Select

End Sub

Qui effacera les infos de AB à AE de la ligne active !
Trier par date Trier par votes

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

En P75 du fichier joint, item "Effacer" à reproduire pour les autres listes, comme ça, pas besoin de bouton et de macro supplémentaire pour alourdir la chose.
Et :
VB: 
Private Sub ListBox1_Change()
ActiveCell = IIf(ListBox1 = "Effacer", "", ListBox1)
[A1].Select
Exit Sub
End Sub

Cordialement
 

Pièces jointes

  • effacer_koi.xlsm
    53.9 KB · Affichages: 10
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Re,
"En P75 du fichier joint, item "Effacer" à reproduire pour les autres listes, comme ça, pas besoin de bouton et de macro supplémentaire pour alourdir la chose."

J'ai pas compris la question car les lignes 70 à 81 ne servent que pour la ListBox
Pour ma demande, il ne faut pas faire intervenir ces lignes
lionel,
 
Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc
Repose en paix
Re,

C'est une réponse à :
Usine à gaz à dit:
Ma difficulté est d'effacer une ligne choisie de AB à AE car si je clique sur les cellules pour effacer, la Listbox s'active.
Cliquez pour agrandir...

Quand vous sélectionnez une cellule de AB, AC, AD ou AE choisissez l'item 'Effacer' dans la listbox et la cellule s'effacera !

Si vous voulez effacer les infos de la ligne, vous pouvez mettre comme choix : "Effacer infos ligne" et sur listbox1_change :
VB: 
Private Sub ListBox1_Change()
    If ListBox1 = "Effacer infos ligne" Then
        Range("AB" & ActiveCell.Row & ":AE" & ActiveCell.Row) = Empty
    Else
        ActiveCell = ListBox1
    End If
    [A1].Select

End Sub

Qui effacera les infos de AB à AE de la ligne active !
 
Dernière édition:
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

S
  • Question
XL 2019 Modifications avec Combobox liées
Réponses
7
Affichages
195
Dranreb
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
137
escudo
E
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
158
AlCapone
M
  • Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
962
ManuXZ
M
M
  • Question
XL 2021 Avoir des tableaux liés à une base de données
2
Réponses
24
Affichages
456
Nain porte quoi
N
E
  • Question
Microsoft 365 effacer formule en fonction de ce qui a été saisi dans une autre cellule
Réponses
6
Affichages
373
Phil69970
  • Question
Microsoft 365 Tableau
2
Réponses
24
Affichages
901
jaclam
  • Question
XL 2021 Vos avis SVP: Une fonction TRANSPOSE() à améliorer
16 17 18
Réponses
267
Affichages
4 K
p'tit vieux
S
  • Question
Autres liste déroulante dynamique à 2 niveaux
Réponses
2
Affichages
104
saralht
S
S
  • Question
Microsoft 365 A partir de la 1ere cellule non vide, récupérer le mois
Réponses
4
Affichages
152
Sissou71
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…