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

XL 2010 Recherche solution Macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion filtre69
  • 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
F

filtre69

XLDnaute Occasionnel
Bonjour @ tout le forum
Je n'arrive pas à trouver la solution pour supprimer par la combobox plusieurs lignes.
Je pense avoir une idée mais je ne sais pas la créer.
Je m'explique : dans mon tableau chaque agent que je crée par userform excel ajoutent 8 lignes tout fonctionne très bien ( grand merci à Natorp pour son aide)
mais quand je veux supprimer un agent par userform par le bouton supprimer je n'arrive pas à lui faire supprimer les lignes mais une par une j'arrive.
j'ai pensé à une recherche puis il supprimerait les lignes mais je ne suis pas cale en Vba.

Merci d'avance pour votre aide

Private Sub Supprimer_Click()
If ComboBox1.Value = "" Then

MsgBox ("Veuillez selectionné le Nom/Prénom de la personne a suprimer")

Else

If MsgBox("confirmez-vous la supression de cette personne ?", vbYesNo, "confirmation") = vbYes Then

Rows([C13:C65536].Find(ComboBox1.Value).Row).EntireRow.Delete

End If
End If
End Sub
 
Trier par date Trier par votes
Bonjour youky, le forum

J'ai une erreur d'exécution '13': Incompatiblé de type quand je supprime un agent.

Private Sub ComboBox1_Change()
If ComboBox1 = "" Then
TextBox1 = "": TextBox2 = "": TextBox3 = ""
Opt_Ast_Oui = False: OpNon = False: Opt_Gou_Oui = False: OptGNon = False
End If
Opt_Ast_Oui = False: OpNon = False: Opt_Gou_Oui = False: OptGNon = False
lig = Application.Match(ComboBox1, Feuil113.[C:C], 0)

--> If Cells(lig + 8, 3) = ComboBox1 Then Opt_Ast_Oui = True

If Cells(lig + 9, 3) = ComboBox1 Then Opt_Gou_Oui = True
TextBox1 = Cells(lig, 1): TextBox2 = Cells(lig, 2): TextBox3 = ComboBox1
End Sub
Encore grand merci a vous tous
 
Vote positif 0 Vote négatif
Hé oui!!!!
A modifier comme ceci
Bruno
VB: 
Private Sub ComboBox1_Change()
If ComboBox1 = "" Then
TextBox1 = "": TextBox2 = "": TextBox3 = ""
Opt_Ast_Oui = False: OpNon = False: Opt_Gou_Oui = False: OptGNon = False
End If
Opt_Ast_Oui = False: OpNon = False: Opt_Gou_Oui = False: OptGNon = False
lig = Application.Match(ComboBox1, Feuil113.[C:C], 0)
If IsNumeric(lig) Then
If Cells(lig + 8, 3) = ComboBox1 Then Opt_Ast_Oui = True
If Cells(lig + 9, 3) = ComboBox1 Then Opt_Gou_Oui = True
TextBox1 = Cells(lig, 1): TextBox2 = Cells(lig, 2): TextBox3 = ComboBox1
End If
End Sub
 
Vote positif 0 Vote négatif
Alors la chapeau Je tiens à vous dire bravo, un super méga MERCI à vous tous pour le temps et la patience que vous passer avec des personnes nulles comme moi.
Encore grand merci à vous
Je test bien le tableau et je marque résolu des que j'ai finir.
Codialement
 
Vote positif 0 Vote négatif
Bonjour youky, le forum
Je reviens vers vous car le tableau à un petit soucie.
Je m'explique je rentre les données d'un agent tout va bien si je modifie l'astreinte ou le goudron tout s'efface et là ce n'est pas bon.
Auriez-vous une solution?
Merci
Cordialement
 
Vote positif 0 Vote négatif
Bonjour le Forum,
J'ai un problème avec mon fichier tout fonctionne très bien sauf quand je modifie l'astreinte ou le goudron toute les données rentrées s'efface.
Pouvez-vous m'aider j'arrive pas a comprendre la macro elle est trop compliqué pour moi.

Merci d'avance de votre aide.
Cordialement
 

Pièces jointes

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

Discussions similaires

  • Résolu(e)
XL 2016 problème au niveau d'un contrôle dans VBA
Réponses
2
Affichages
489
chinel
  • Question Question
XL 2021 Réduction temps d'exécution boucle macro
Réponses
11
Affichages
356
TooFatBoy
D
  • Résolu(e)
XL 2021 Combobox vide
Réponses
9
Affichages
256
Did25
D
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
510
un internaute
U
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
270
anthoYS
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
569
un internaute
U
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
I
  • Résolu(e)
XL 2021 msgbox : timer vbyes
2 3
Réponses
40
Affichages
1 K
isandre
I
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
707
TooFatBoy
P
  • Question Question
Microsoft 365 VBA et Segments TCD
Réponses
2
Affichages
427
patricko-13
P
S
  • Question Question
XL 2021 Listing Album Panini
Réponses
5
Affichages
478
job75
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
964
tnion
T
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
599
fanch55
C
  • Résolu(e)
XL 2016 MsgBox avec critères
2
Réponses
22
Affichages
706
candido57
C
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
440
ManuEven
M
L
  • Question Question
XL 2016 VBComponent
Réponses
7
Affichages
371
Loulou27
L
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
788
Simon 1234
S
  • Résolu(e)
XL 2016 Excel code vba motus
Réponses
11
Affichages
522
papychat1
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
628
KRUG WOO
K
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…