Résultats pour "supprimer ligne"

5'727 résultats pour cette recherche

Bonjour à tous,

J'ai actuellement une macro qui me permet de transposer les données de ma listbox1 vers la feuille 2 du classeur en démarrant cette transposition en A11 de la feuille 2 du classeur.

Malheureusement, je ne sais pas comment supprimer les données de la ligne supprimée de la listbox1 sur ma feuille 2 du classeur.

Exemple :

Listbox1, je rentre les données à l'aide de mon bouton de commande Valider, à chaque fois que je clique Valider, les données s'intègrent au fur et à mesure sur ma listbox1 et en parallèle ces données de la listbox1 se transposent sur ma feuille 2 à partir de la celulle A11.

Quand je double clique sur ma ligne à supprimer dans ma listbox1, elle se supprime correctement mais sur ma feuille 2, la ligne qui a été supprimée dans ma listbox1 reste.

Comment faire pour que cette dernière se supprime aussi bien sur ma listbox1 que sur ma feuille 2 ?

En sachant que si je supprime la ligne 4 de ma listbox1, sur ma feuille 2 il faudra que cette ligne 4 soit supprimée et qu'il ne me laisse pas une ligne vide entre la ligne 3 et 5. En gros la ligne 5 devient la ligne 4.

Est-ce que quelqu'un aurait une idée du code et comment faire ?

J'espère que mes explications ont été claires.

Je vous ai mis en PJ mon fichier avec le code.

En vous remerciant par avance de votre aide ^^

Namco

12test.xlsm (57.76 Ko)

Bonjour à tous,

J'aimerais supprimer les lignes d'un tableau une par une avec un bouton, seulement je veux m’arrêter à la première pour pouvoir en créer d'autres plus tard sur le modèle de la première.

Voici ce que j'ai mais il y a une erreur :

Sub supp_rows()
Dim vnom As String, vrech As Range, derlign As Long
vnom = "Nombre de licences par Services"
Set vrech = Columns(1).Find(vnom)
If Not vrech Is Nothing Then
 derlign = Range("A" & vrech.Row).End(xlDown).Row

    If derlign = vnom(1, 0) Then
    MsgBox "Vous ne pouvez pas supprimer la première ligne !" & Chr(10) & Chr(13) _
    & "Aucune nouvelle ligne n'a été ajoutée."
    Exit Sub
    End If
Range("A" & derlign).EntireRow.Delete
End If
End Sub

D'avance merci pour votre aide.

Bonjour,

j'ai une macro qui recherche sur une colonne les zéro

puis me supprime la ligne.

Dim x As Range 'Déclare la variable x -> x = cellule

Set x = Range("F2:F" & Range("F65536").End(xlUp).Row) 'x = F1 à dernière cellule pleine de I

For Each x In x 'Boucle sur toutes les cellules pleines de la colonne I

If x = 0 Then 'Si = 0

x.EntireRow.Delete 'Efface la ligne

End If 'Fin de la condition

Next x 'Fin de la boucle

' Fin de la suppression

Mon problème c'est que j'ai des formule qui pointe sur ces lignes, mais a chaque fois que les lignes sont supprimé, mes formules ne fonctionne plus car j'ai un #REF! dans mes formules.

je souhaite ne pas supprimer la ligne mais juste l'effacer ou la vider

Si vous avez une solution

d'avance merci et bonne journée

KissCool

Bonsoir,

Je souhaite mettre en bout de ligne un bouton de commande qui me permette de supprimer la ligne sur laquelle il se trouve, mais je n'y parviens pas car Excel n'identifie pas la position du bouton.

Merci d'avance pour votre aide.

Plec

Bonjour,

J'ai une longue liste de donnée pouvant aller jusqu'à 1000 lignes et je voudrais dire à Excel de supprimer une ligne qui vient juste après une cellule contenant un mot.

J'ai essayé des codes que j'ai cherché sur le Forum mais je ne trouve pas.

Je joins un fichier à titre d'exemple.

Voici le code que j'ai écrit:

Sub Supprimerligne()

Dim I As Integer

For I = [A65000].End(xlUp).Row To 1 Step -1

If Not Cells(I, 1).Find("Enchère") Is Nothing Then range(I).offset(1,0).delete

Next I

End sub

Merci!

4exemple-1.xlsx (47.64 Ko)

bonjour, je suis secrétaire d'une association et j'ai dupliqué tout un classeur excel avec des feuilles contenant des tableaux déjà remplis ; quand je veux supprimer les données de l'annee dernière pour mettre les données de cette année, les formules s'éffacent aussi...y a t'il une façon de faire pour n'effacer que les chiffres et garder les formules .....merci à ceux qui prendront le temps de me répondre

Bonjour à tous !

ca va bien ?

Je suis nouveau dans Excel et je cherche depuis longtemps à faire ceci ; j'ai un document Excel qui contient plusieurs lignes. C'est un document que des travailleurs vont pouvoir remplir. Il doit être modifiable, on peut insérer des images, fusionner, etc. Donc, l'onglet de tout verrouiller ne fonctionne pas bien pour mon besoin. Cependant, je dois quand même empêcher la suppression d'une formule dans une cellule qui se rapporte à 2 menus déroulants. En fait, on sélectionne une probabilité (possible) et on sélectionne la gravité (modéré) et automatiquement, Excel calcule le niveau du risque (moyen) et l'affiche dans une cellule. Cependant, si la personne clique sur la cellule qui affiche le niveau de risque (moyen), elle peut supprimer la formule. Je ne veux pas. Elle peut supprimer le texte (moyen), mais pas la formule. Cependant, en faisant cela, sa supprime les deux soit le texte (faible) et la formule en arrière. En fait, c'est quand même dur à expliquer, mais mon exemple en pièce jointe va sûrement vous aider !

Un gros gros merci pour votre aide !

Bonne semaine

Hello.

Je sais que c'est un sujet récurrent mais malgré le temps passé à parcourir le forum, je n'ai pas compris la solution. Je me perds entre les .Select, les Range, les EntireRow etc...

Admettons que je veuille supprimer toute la ligne A à partir de la deuxième case (sachant que je ne connais pas la longueur de la ligne A).
Comment puis-je faire ?

Je pensais à

Range("A2:A").ClearContents

Mais pas du tout.

Merci d'avance !

Bonjour,

J'ai un problème avec un programme que je réalise.

Il est constitué d'une base de données (tableau) avec en premiere colonne des références, qui sont utilisées régulièrement au sein de ce programme.

J'essaye d'ajouter une fonction permettant de supprimer une ligne, et mettre à jour les références de cette premiere colonne.

Pour cela, j'utilise le code suivant, allié à un userform :

Private Sub Valider_Click()

'On compte le nombre de références totales qu'il y a

Range("A3").Select
While Selection.Value <> ""
    Selection.Offset(1, 0).Select
Wend
RefMax = Selection.Offset(-1, 0).Value

'On test que la référence saisie dans la textbox est bien inférieure au nombre total de REX (donc comprise dans la liste des ref)

If Reference.Value <= RefMax Then

    'on définit la ligne que l'on va devoir supprimer en la cherchant par la reference saisie precedemment
    ligne = ActiveSheet.Columns(1).Cells.Find(what:=Reference, lookat:=xlWhole).Row

    'on vérifie que l'utilisateur veut bien supprimer le rex
    If MsgBox("Voulez-vous vraiment supprimer le REX n°" & RefREX & "?", vbYesNo, "Confirmation de suppression de la référence") = vbYes Then
        'on selectionne la ligne
        Rows(ligne).Select
        'suppression ligne
        Selection.Delete Shift:=xlUp
        'on stocke dans une variable la référence précédant celle de la ligne que lon a supprimé
        REfPrecedente = Reference - 1
        'et on sélectionne la cellule correspondant
        ActiveSheet.Columns(1).Cells.Find(what:=REfPrecedente, lookat:=xlWhole).Select

        'puis on met à jour les références pour qu'elles se suivent par une boucle
        While Selection.Offset(1, 0) <> ""
            RefApres = Selection.Offset(1, 0).Value
            Selection.Offset(1, 0) = RefApres - 1
            Selection.Offset(1, 0).Select
        Wend

        MsgBox ("reference supprimée")

    Else
        'si l'utilisateur ne veut plus supprimer on affiche une msgbox
        MsgBox ("Aucune référence n'a été supprimé")
    End If

'si la txtbox est vide
ElseIf Reference = "" Then
    MsgBox ("Merci de saisir une référence")

'si la ref saisie est superieure a la ref maximale on empeche la manoeuvre
ElseIf Reference > RefMax Then
        MsgBox ("Merci de saisir une référence valable!")
End If

End Sub

Je pense qu'il est suffisamment explicite avec les annotations.

Cependant, lors du test pour vérifier que la référence saisie par l'utilisateur est bien comprise dans la liste des références (if reference <=RefMax.value then...), vba semble ne pas reconnaitre la valeur stockée par Reference ou RefMax et ne parvient pas à réaliser l'inéquation ...

Pouvez-vous m'indiquer d'où vient l'erreur?

Je vous joins un fichier xlsm pour imager le dysfonctionnement : cliquez sur le bouton bleu pour afficher l'userform, le reste se trouve dans l'Userform "Modif" dans VBE...

Merci par avance pour votre aide.

Bien cordialement

1classeur1.xlsm (20.49 Ko)

Bonjour tout le monde,

Dans mon userform Traitementdoc, je sélectionne dans ma liste la demande que je traite, je rentre la date de traitement et cette dernière se classe dans l'onglet "données traitées". Cependant, je voudrais avoir un code pour que la demande traitée ne figure plus sur l'onglet données.

Merci de votre aide.

3coc.xlsm (41.41 Ko)

Bonjour,

J'ai trouvé pas mal de posts à ce sujet, mais je crois qu'aucun ne me convient...

J'ai une feuille excel avec un tableau appelé "Matériel" et un tableau appelé "Base de données", qui sont côte à côte...

Pour le tableau Matériel, j'aimerais une macro qui me permettrait que lorsque je sélectionne une des cellules, la ligne correspondante de ce tableau soit supprimée (sans évidemment supprimer de lignes du tableau d'à côté). Je sais qu'il suffirait d'un clic droit -> supprimer -> lignes de tableau, mais... Mes collègues sont vraiment des quilles en informatique et j'aimerais leur simplifier la tâche...

Merci d'avance!

Bonjour, j'ai une feuille avec une colonne de prénoms. J'ai créé une listbox qui reprends ses prénoms.

J'aimerai en fait à l'aide d'un bouton de commande, supprimer la ligne de mon classeur qui correspondrait à la ligne sélectionnée dans ma listbox avant d'appuyer sur ce bouton ( et éventuellement directement supprimer la ligne également de la listbox pour être parfait niveau détail )

J'ai vu plusieurs possibilités sur internet mais je n'arrive pas à en faire fonctionner... merci de votre aide.

Bonjour tout le monde,

Sauriez vous m'aider à supprimer les doublons sur une même ligne de droite à gauche, et looper cette fonction sur plusieurs lignes?? ..

Je m'explique, j'ai un grand tableau qui se présente comme cela

capture d ecran 2020 04 24 a 18 04 09

et je veux le transformer en un tableau comme ça

capture d ecran 2020 04 24 a 18 04 17

et donc supprimer les doublons ligne par ligne sans bouger l'ordre des cellules

... keep in mind que le tableau que je manipule est de plus grandes dimensions que cela (52 colonnes et 2000 lignes)

Merci d'avance à vous les rois de la programmation VBA

Zineb

Bonjour,

Il existe une fonction pou supprimer les cellules vide d'un tableau Excel, il existe aussi des macros permettant de supprimer des lignes dont la celle de la première colonne est vide, mais ce que je cherche, c'est une macro qui vérifie si la totalité de la ligne est vide pour la supprimer.

En effet, il arrive qu'il y ait des données "éparpillées" qui sont dans les lignes mais pas forcément dans les premières colonnes.

Pouvez-vous m'aider SVP ?

Merci

GL

Bonjour,

Je viens vers vous car j'ai un petit problème et je n'arrive pas à trouver la solution; j'ai essayé plusieurs codes mais rien ne fonctionne

Peut-être que je ne comprends pas ce qu'il faut faire ou je fais peut-être à l'envers, je vous mets le fichier pour que vous puissiez comprendre les explications.

J'ai un formulaire pour faire des modifications dans un tableau nommé répertoire artiste en tout premier j'essaye de faire la recherche de la personne concernée par rapport à la liste déroulante qui se trouve en nom et prénom et je voudrais que les autres éléments se remplissent automatiquement en fonction.

Si je clique sur le bouton supprimé je voudrais que la ligne concernée puisse s'effacer complètement pouvez-vous m'aider s'il vous plaît en vous remerciant d'avance cordialement.

Bonsoir le forum,

Je souhaiterais que si dans la colonne D, une cellule contient le mot "DO" "HS" "FV" alors supprimer la ligne.

Après cette suppression et seulement après idem aussi pour la colonne F mais avec des mots différents.

Je suis parti sur ça mais je galère, ca ne fonctionne même pas avec un MOT.

Sub Filtre()

Sheets("Synthèse").Select

Range("F1").Select

For r = 1 To Range("F1").End(xlDown).Row

If ActiveCell = "DO" Then Rows(r).Delete

Next r

End Sub

Merci à vous

4grv64.xlsm (281.32 Ko)

Bonjour,

Je cherche à Supprimer la ligne de mon tableaux contenant ma ref obtenu par un Userform

Je ne peux pas faire EntierRow.Delate car j'ai d'autre tableau a côté.

Dim ref As String, lot As String,  LigP As Long, ResultatP As Long

On Error Resume Next

ref = ComboBox1.Value
lot = ComboBox5.Value

With Sheets("PRODUCTION")
    For LigP = 2 To .Range("B" & Rows.Count).End(xlUp).Row
        If .Range("B" & LigP) = ref And .Range("E" & LigP) = lot Then
             Resultat = LigP
             Exit For
        End If
    Next LigP
End With

1 er parti OK

Ici la parti ou j'ai un problème :

Idée 1:

'Sheets("PRODUCTION").listobjects("Tableau2").Range("B" & LigP).Select
'Selection.Range("B" & LigP).Delete

Ou 2 Idée :

'With Sheets("PRODUCTION").ListObjects("Tableau2")
'If .Range("B" & LigP) = ref Then
'.Range("B" & LigP).Row.Delete
'End If
'End With

Je vous remerci par avance de votre aide

Bonne journée

Cobzy

Bonjour,

Je suis novice en VBA . Je souhaiterai avoir une macro me permettant de supprimer toute la ligne de mon tableau à condition que la cellule située dans la colonne d (entre les lignes 7 et 89) est vide.

Par exemple : Si la cellule (10 , 4) est vide, toute la ligne 10 doit être supprimée.

Par avance merci pour vos réponses

Bonjour

je sais que ça sera trés simple pour certains mais moi je n'arrive pas !

j'ai ce code en dessous qui sélectionne une ligne de tableau il la copie et il l'ajoute en dessous, sauf qu'il supprime pas la mise en forme .

Exemple : par exemple la ligne que je copie j'avais écris en rouge alors malgré que mon code supprime l'ecriture mais il ne supprime pas la mise en forme ?

pouvez vous m'aider svp ?

Selection.EntireRow.Copy

Selection.Insert Shift:=xlDown

Selection.EntireRow.Offset(1, 0).ClearContents

Hello à tous!

C'est encore moi avec mon fichier Devis (que voulez-vous j'adore le customiser ).

J'ai besoin de vous cette fois car dans mon tableau Devis je voudrais que l'utilisateur puisse sélectionner une ligne du tableau (aléatoirement, pas forcément la dernière) et la supprimer.

Seulement le problème est que ma feuille est protégée et que les cellules des dernières colonnes sont verrouillées (pour éviter que les utilisateurs suppriment des formules malencontreusement) donc en essayant de supprimer une ligne, Excel me renvoie fatalement le message d'erreur "impossible de supprimer une ligne contenant des cellules verrouillées).

Donc, en ayant réfléchi au problème, je me suis dit qu'il était possible de faire un petit bout de code VBA pour lui dire en gros :

Si l'utilisateur sélectionne une ligne appartenant au tableau Devis + essai de la supprimer

Alors on déprotège la feuille

Puis on supprime la ligne

Puis on reprotège la feuille

Fin du Si

Or j'ai déjà deux problèmes avant d'écrire ce bout de code :

1/ la plage de mon tableau Devis n'est pas encore définie et si je la nomme alors je ne sais pas si les lignes ajoutées par mon bouton "ajout de ligne" seront prises en compte dans cette plage nommée.

2/ peux-t'on vraiment réaliser ce Si ? Peux-t'on vraiment dire à Excel : "si utilisateur sélectionne une ligne et tente de la supprimer" ? Est-ce une action identifiable?

Si jamais cela n'est pas réalisable alors je pensais créer un bouton suppression de ligne (tout comme j'ai déjà un bouton "ajout de ligne") qui permettrait de choisir la ligne du tableau à supprimer (l'utilisateur pourrait choisir le numéro de la ligne et je l'aiderais en lui mettant une nouvelle colonne avec un numéro chrono).

Je vous joins mon fichier au cas ou :

Merci d'avance pour votre aide

Vip4rk

Recherches récentes

supprimer ligne valeur feuillevendredi moistableau croise dynamiqueconsolidationconsolidercopier resultat userformbouton copier userformchamp_recherche xlscode postalfiltrepostalpostauxcahier consignesgestion archivescommentsgeodesiqueeuromillionenvoie mail automatiqueinsertion copier coller lignecopier coller ligne