VBA Supprimer une ligne

Téléchargez les fichiers Excel et les macros des vidéos sur Patreon ! www.patreon.com/kevinbrundu

[@slimaneboudour8240]

Bonjour. Et comment faire pour ajouter une ligne?

[@darklord1941]

Salut..et pour supprimer les lignes vides dans une requête avec du VBA

Salut, pour supprimer une ligne vide, il faut appliquer la condition sur une cellule avec = "" où les guillemets signifient vide.

[@abdeljelilmohamedabdellahi1501]

Et si je voulais seulement supprimer la partie (A:G) de la ligne (Mode tableau), sur la plage (J:P) d'autres données sont à préserver. Que faire ?

Bonjour, quelque chose comme ws_oubglet.Range(ws_onglet.Cells(i,"A"), ws_onglet.Cells(i,"G")).ClearContent

[@alainnouasra1680]

Bonjour, Quel est la syntaxe pour supprimer LA DERNIÈRE LIGNE à la place d'un numéro de ligne. Cordialement

Bonjour, il faut remplacer le numéro de ligne par l'expression ws_onglet.Cells(rows.count,1).End(xlup).row où ws_onglet est la variable représentant la feuille de calcul.

[@stephanerecio8153]

Bonjour je recherche a inséré a ajouter des ligne ou les supprimes selon les valeurs donnes dans un menu déroulant j ai réussi une programmation avec les bouton + et - ,mon soucis est que cela ne fonctionne pas avec le menu déroulant merci de votre aide

Salut Stephane, si je comprends bien, en fonction de la valeur de la cellule (qui prendra la valeur choici dans le menu déroulant), on veut ajouter ou supprimer des lignes. Si c'est bien le cas, on devra donc faire une boucle sur toutes les lignes, relever la valeur de la cellule, utiliser une condition pour déterminer si on ajoute ou on supprime la ligne. En bref, quelque chose comme cela: 'début de la boucle For i = 2 to derniere_ligne 'relever la valeur de la cellule valeur_cellule = cells(i,1).value 'condition If valeur_cellule = "Ajout" Then 'code pour ajouter ElseIf valeur_cellule = "Supprimer" Then 'code pour supprimer End If Next Est-ce que cela a du sens ? Cela correspond à l'idée de base ? N'hésitez pas à ajouter des détails, je peux éventuellement faire une vidéo spécifique sur le sujet ;)

[@stephanerecio8153]

Bonjour Kevin ,c'est bien ça ma difficulté est au niveau du menu déroulant car le code fonctionne bien avec +et - mais des que je veut la liste déroulante plus rien ne fonctionne sur le menu déroulant je souhaite rajouter jusqu a 6 lignes et idem en négatif et recopier les lignes du dessus avec les formules je peux envoyer mon tableau si nécessaire pour mieux comprendre merci

Oui avec plaisir pour voir le fichier. "plus rien ne fonctionne sur le menu déroulant", est-ce que cela veut dire que le choix du menu déroulant diaparait sur les lignes qu'on ajoute ? Si oui, dans ce cas, cela signifie que le menu déroulant doit être défini sur toutes la colonne en même temps et non sur une plage de cellule.

[@stephanerecio8153]

j ai déjà une formule qui fonctionne très bien avec les boutons + et - mon soucis et quand je passe avec le menu déroulant car plus efficace plus rien ne fonctionne ci joint le programme avec les boutons Sub add_rows() ligne = 19 nbre = ActiveCell.Value Range("D" & ligne).Select Rows(ligne).Copy Rows(ligne + 1).Insert Shift:=xlDown Cells(ligne + 1, 1).Value = nbre + 1 End Sub Sub supp_rows() dl = Range("A65536").End(xlUp).Row If dl

[@mybattery18650]

Bonjour Pouvez vous résoudre mon souci svp car lorsque je clic sur supprimer il me demande de le numéro d 'identifiant quand je fais oui pour la confirmation il m’efface la ligne et la supprimer pas . Private Sub btnsupdelabasebddinv_Click() Dim DerLig As Long Dim SupprimeLigne As String Application.ScreenUpdating = False Application.DisplayAlerts = False Set f = Sheets("DOSSIERS Les invisibles") DerLig = f.[A10000].End(xlUp).Row SupprimeLigne = InputBox("Veuillez taper le numéro d'identifiant OE à supprimer", "SUPPRESSION") Select Case MsgBox("Etes vous sur de vouloir supprimer de la base cet identifiant?", vbYesNo + vbExclamation, "CONFIRMATION") Case vbYes f.Columns("V:V").Replace What:=SupprimeLigne, Replacement:="", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False If Reponse = 6 Then f.Range("V2:V" & DerLig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete Case vbNo Exit Sub End Select End Sub

Salut, de ce que je vois, il me semble qu'il faudrait écrire : If Reponse = 6 Then f.Range("V2:V" & DerLig).EntireRow.Delete

[@mybattery18650]

@ V2:V le v2 c est quoi svp, si par exemple les infos que je cible sont en colonne T je dois changer V:V et mettre T:T et aussi T2:T ? merci beaucoup pour votre soutien. cdlt Jamal

@@mybattery18650 J'ai juste repris de votre code. En effet, si la colonne est différente, il faudra changer sa référence. Si besoin, j'ai aussi fait d'autres vidéos sur les suppressions de ligne, si ça peut aider, les voici : - kzbin.info/www/bejne/n6eyfJZ8pKZljac - kzbin.info/www/bejne/kISWq4OFdtp5q9E

[@mybattery18650]

@ le V2 c'est une personne qui m'a aidé mais je voudrais bien comprendre ce que ça veut dire je regarderai directement vos liens et ensuite je vais m abonné. Laissez-moi vous dire que vous êtes très efficace car c'est un fichier que je dois donner à 10h30. Pendant que j'y suis savez-vous et ce sera ma dernière question comment mettre dans champ texte dans un userforme une date de modification à chaque dois que le userform s ouvre. merci

@@mybattery18650 Dans la partie initialize du userform, il suffit d'associer la textbox à la date du jour, par exemple Textbox1.value = Date