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

XL 2013 (resolu par Job75)bug a C non déclaré

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

grisan29

XLDnaute Accro
bonsoir a tous et toutes
j'ai un code pour supprimer la ligne du client dont son nom se trouve en TextBox2, j'ai C qui bug avec variable non définie, j'ai mis C as integer et c'est l'ojet qui est requis, bref je plane dessus depuis un moment et je vois plus, donc je fait appel a vos lumières
Code: 
Private Sub CommandButton4_Click()
On Error Resume Next
Dim nom As String, ligne As Long ', C As Integer
nom = TextBox2
With Sheets("CLIENTS").Range("C2:" & Range("C2").End(xlDown).Address)
    Set C = .Find(nom, LookIn:=xlValues)
    ligne = C.Row

Sheets("CLIENTS").Rows(ligne).Delete Shift:=xlUp
End With
Unload Me
End Sub
 
Trier par date Trier par votes
Bonjour,

à main levée avant d'aller au lit...
VB: 
Dim C as Range
Ensuite, à moins d'être sûr à 100% que nom sera toujours trouvé, il faut tester si .find a trouvé :
VB: 
If not C is nothing then
   ligne = C.Row
   ' etc
Else
  ' si non trouvé
End If
eric
 
Vote positif 0 Vote négatif
Bonjour grisan29, eriiiic,

Bah il est inutile de créer des variables pour si peu :
Code: 
Private Sub CommandButton4_Click()
On Error Resume Next
Sheets("CLIENTS").Range("C2:C" & Rows.Count).Find(Textbox2, , xlValues, xlWhole).EntireRow.Delete
Unload Me
End Sub
ou encore mieux :
Code: 
Private Sub CommandButton4_Click()
On Error Resume Next
With Sheets("CLIENTS")
  .Rows(Application.Match(Textbox2, .[C:C], 0)).Delete
End With
Unload Me
End Sub
A+
 
Vote positif 0 Vote négatif
Re,

Allons allons grisan29 la colonne C contient les prénoms, le code fonctionne très bien si l'on entre des prénoms dans TextBox2.

Si vous voulez rechercher des noms vous n'avez qu'à modifier le code en conséquence !!!

Bonne fin de soirée.
 
Vote positif 0 Vote négatif
Bonjour grisan29, le forum,

Même si c'est rare il peut y avoir des homonymes.

Alors pour ne pas avoir de problème prenez cette macro qui utilise le filtre automatique :
Code: 
Private Sub CommandButton4_Click()
If TextBox2 = "" Then Exit Sub
With Sheets("CLIENTS").[A1].CurrentRegion
  .AutoFilter 4, TextBox2
  Select Case .SpecialCells(xlCellTypeVisible).Count / .Columns.Count
    Case 1: MsgBox "Le nom n'existe pas...": GoTo 1
    Case Is > 2: MsgBox "Il y a des doublons, supprimez la ligne manuellement...": .Parent.Activate: GoTo 2
  End Select
  .Rows(Application.Match(TextBox2, .Columns(4), 0)).Delete xlUp
  MsgBox "'" & TextBox2 & "' a été supprimé..."
1 .AutoFilter
End With
2 Unload Me
End Sub
Bonne journée.
 
Dernière édition:
Vote positif 0 Vote négatif
Re,

Une variante un peu plus élaborée :
Code: 
Private Sub CommandButton4_Click()
If TextBox2 = "" Then Exit Sub
With Sheets("CLIENTS").[A1].CurrentRegion
  .AutoFilter 4, TextBox2
  Select Case .SpecialCells(xlCellTypeVisible).Count / .Columns.Count
    Case 1
      .AutoFilter
      MsgBox "Le nom n'existe pas..."
      TextBox2.SetFocus
      TextBox2.SelStart = 0
      TextBox2.SelLength = Len(TextBox2)
      Exit Sub
    Case Is > 2: MsgBox "Il y a des doublons, supprimez la ligne manuellement...": .Parent.Activate: GoTo 1
  End Select
  .AutoFilter
  .Rows(Application.Match(TextBox2, .Columns(4), 0)).Delete xlUp
  MsgBox "'" & TextBox2 & "' a été supprimé..."
End With
1 Unload Me
End Sub
A+
 
Vote positif 0 Vote négatif
Re,

Cela dit grisan29 à mon avis vous perdez votre temps.

Il existe sur ce forum de nombreux exemples de BDD gérées par UserForm.

Et en général on y utilise une ListBox ou une ListView.

A+
 
Vote positif 0 Vote négatif
bonsoir Job75
merci de ta réponse, mais ce classeur n'est pas pour moi je comprends bien ce que tu veux dire
mais sur le dernier code il y a un bug a cette ligne
Code: 
   Case Is > 2: MsgBox "Il y a des doublons, supprimez la ligne manuellement...": .Parent.Activate: GoTo 1
et le premier code lui fonctionne bien
merci beaucoup a toi
 
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

W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
652
thunder23
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
332
escudo
E
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
540
PHIL37
P
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
249
mikeduff
M
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
  • Question Question
Microsoft 365 VBA ADODB doublons
Réponses
1
Affichages
265
dysorthographie
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
671
Oneida
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
401
job75
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
344
Pierreavecunp
P
C
  • Question Question
XL 2016 accès feuilles masquées par bouton
2
Réponses
26
Affichages
782
vgendron
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
3 K
Usine à gaz
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
689
MBEPID
M
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
788
Simon 1234
S
  • Question Question
XL 2019 Détecter les valeurs suivant les tableaux sélectionnés et, si elles sont non-existantes, les copier
2 3
Réponses
33
Affichages
1 K
Amigo
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
540
Francky79
F
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
2 K
NONO14
N
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
629
KRUG WOO
K
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
800
job75
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…