Problème de macro VBA
Résolu/Fermé
Remi2236
Messages postés
86
Date d'inscription
jeudi 10 septembre 2015
Statut
Membre
Dernière intervention
22 mai 2024
-
28 nov. 2023 à 10:21
Remi2236 Messages postés 86 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 22 mai 2024 - 29 nov. 2023 à 10:11
Remi2236 Messages postés 86 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 22 mai 2024 - 29 nov. 2023 à 10:11
A voir également:
- Problème de macro VBA
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Excel compter cellule couleur sans vba - Guide
- Vba attendre 1 seconde ✓ - Forum VB / VBA
1 réponse
thev
Messages postés
1961
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
16 février 2025
706
28 nov. 2023 à 21:06
28 nov. 2023 à 21:06
Bonjour,
Par rapport à ce que vous présentez, je vois une façon plus simple de renuméroter
Par ailleurs, il serait plus sûr d'ajouter dans votre "Find" , le paramètre de recherche complète, notamment en cas de tri de votre tableau.
Private Sub CommandButton1_Click() Dim ws As Worksheet Dim tbl As ListObject Dim foundCell As Range Dim selectedRow As ListRow Dim i As Integer ' Spécifiez la feuille et le tableau Set ws = ThisWorkbook.Sheets("Suivi_du_courrier") Set tbl = ws.ListObjects("Tableau1") ' Cherche la valeur dans la TextBox1 dans la colonne A Set foundCell = tbl.ListColumns("Colonne1").DataBodyRange.Find(Val(TextBox1), LookIn:=xlValues, LookAt:=xlWhole) If Not foundCell Is Nothing Then ' Sélectionne la ligne correspondante Set selectedRow = tbl.ListRows(foundCell.Row - tbl.HeaderRowRange.Row) ' Supprime la ligne sélectionnée selectedRow.Delete ' Tri selon les valeurs de la colonne A With tbl .Range.Sort key1:=.ListColumns(1), Order1:=xlAscending, Header:=xlGuess End With ' Récalcule les valeurs de la colonne A For i = 1 To tbl.ListRows.Count tbl.ListRows(i).Range.Cells(1, 1).Value = i Next i Else MsgBox "La valeur spécifiée n'a pas été trouvée dans la colonne A.", vbExclamation End If End Sub
29 nov. 2023 à 10:11
Bonjour,
ça fonctionne très bien merci ! Je viens de percuter avec votre ajout de code que j'ai mis
ListColumns("Colonne1")
au lieu de
ListColumns(1)
Du coup ça marche beaucoup mieux...Merci du coup de main !
Cdlt
Rémi