SUPPRESSION D'une ligne à partir d'une autre feuille
Résolu
mir.kan
Messages postés
178
Date d'inscription
Statut
Membre
Dernière intervention
-
mir.kan Messages postés 178 Date d'inscription Statut Membre Dernière intervention -
mir.kan Messages postés 178 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- SUPPRESSION D'une ligne à partir d'une autre feuille
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Forcer suppression fichier - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Partager photos en ligne - Guide
- Aller à la ligne excel - Guide
4 réponses
Bonjour,
« j'ai deux feuilles sur excell qui ont les mêmes données ,c'est juste que la première feuille a des colonnes de plus que l'autre.»
Pourquoi ne pas supprimer simplement la feuille 2 si toutes les données sont sur la feuille 1 ?
« j'ai deux feuilles sur excell qui ont les mêmes données ,c'est juste que la première feuille a des colonnes de plus que l'autre.»
Pourquoi ne pas supprimer simplement la feuille 2 si toutes les données sont sur la feuille 1 ?
Bonjour,
Ça répond pas à ma question !
Essaies :
Cordialement
Patrice
Ça répond pas à ma question !
Essaies :
Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("LesPlans").UsedRange.Columns(1) 'source
With .Resize(.Rows.Count + 1)
Sheets("LesSuivis").Range(.Address).Value = .Value
End With
End With
End Sub
Cordialement
Patrice
Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("LesPlans").UsedRange 'source
With .Resize(.Rows.Count + 1)
Sheets("LesSuivis").Range(.Address).Value = .Value
End With
End With
End Sub
J'ai essayer avec ça aussi .il supprime la ligne comme je le voulais mais le problème en est qu'il ajoute toutes les colonnes de la feuille 1 dans feuille 2 .
J'aimerais écrire un code qui compare chaque ligne de la feuille 2 s'il est identique avec celui de la feuille 1 ,on supprime et sans ajouter les colonnes de la feuille 1 dans feuille 2
With Worksheets("LesPlans").UsedRange 'source
With .Resize(.Rows.Count + 1)
Sheets("LesSuivis").Range(.Address).Value = .Value
End With
End With
End Sub
J'ai essayer avec ça aussi .il supprime la ligne comme je le voulais mais le problème en est qu'il ajoute toutes les colonnes de la feuille 1 dans feuille 2 .
J'aimerais écrire un code qui compare chaque ligne de la feuille 2 s'il est identique avec celui de la feuille 1 ,on supprime et sans ajouter les colonnes de la feuille 1 dans feuille 2
Re,
Quand on ne pose pas la bonne question, il faut s'attendre à une réponse correspondante !!!
« je l'ai essayé mais ça supprime seulement la ligne de la première colonne de la feuille 2 » Non !!! : ça ne supprime rien, ça recopie les valeurs de la première colonne sur la feuille 2 !
Pour obtenir une réponse correcte il faut une question claire et précise :
- est-ce la ligne entière qui est supprimée ?
- combien de lignes peux-tu supprimer simultanément ? une seule ?
- faut-il que les formats soient conservés ?
- les 23 informations de la ligne de la feuille 2 sont-elles identiques à celles de la feuille 1 ?
- si oui, à quoi sert la feuille 2 ?
- as-tu l'intention d'ajouter des informations qui ne sont pas sur la feuille 1 ?
- ...
Voici un code qui recopie les 23 colonnes de la feuille 1 sur la feuille 2 :
Mais dans ce cas, la feuille 2 ne sert à rien !
On obtient la même chose avec un plan sur la feuille 1 (commande Grouper)
Et si tiens vraiment à cette feuille, une simple formule matricielle aurait le même effet.
Cordialement
Patrice
Quand on ne pose pas la bonne question, il faut s'attendre à une réponse correspondante !!!
« je l'ai essayé mais ça supprime seulement la ligne de la première colonne de la feuille 2 » Non !!! : ça ne supprime rien, ça recopie les valeurs de la première colonne sur la feuille 2 !
Pour obtenir une réponse correcte il faut une question claire et précise :
- est-ce la ligne entière qui est supprimée ?
- combien de lignes peux-tu supprimer simultanément ? une seule ?
- faut-il que les formats soient conservés ?
- les 23 informations de la ligne de la feuille 2 sont-elles identiques à celles de la feuille 1 ?
- si oui, à quoi sert la feuille 2 ?
- as-tu l'intention d'ajouter des informations qui ne sont pas sur la feuille 1 ?
- ...
Voici un code qui recopie les 23 colonnes de la feuille 1 sur la feuille 2 :
Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("LesPlans").UsedRange.Columns(1) 'source
With .Resize(.Rows.Count + 1, 23)
Sheets("LesSuivis").Range(.Address).Value = .Value
End With
End With
End Sub
Mais dans ce cas, la feuille 2 ne sert à rien !
On obtient la même chose avec un plan sur la feuille 1 (commande Grouper)
Et si tiens vraiment à cette feuille, une simple formule matricielle aurait le même effet.
Cordialement
Patrice
Excusez moi j'étais un peu perdu. Je m'explique
_la ligne entière a été supprimée
_en faite J'ai un bouton supprimer sur l'interface et si je clique sur cet bouton ça m'affiche un formulaire et c'est à partir de ce formulaire que je dois choisir le plan à supprimer qui me renvoie toutes les infos concernant à ce plan.
_Je veux supprimer une seule ligne
_Je veux que les formats soient conservés
-il y'a des infos qui sont dans la feuille 2 et ne le sont pas dans la feuille 1
_la feuille 2 c'est juste la suivi de la feuille 1
_Je veux rien ajouter sur les feuilles
.Pourrais je vous envoyer mon fichier ?
_la ligne entière a été supprimée
_en faite J'ai un bouton supprimer sur l'interface et si je clique sur cet bouton ça m'affiche un formulaire et c'est à partir de ce formulaire que je dois choisir le plan à supprimer qui me renvoie toutes les infos concernant à ce plan.
_Je veux supprimer une seule ligne
_Je veux que les formats soient conservés
-il y'a des infos qui sont dans la feuille 2 et ne le sont pas dans la feuille 1
_la feuille 2 c'est juste la suivi de la feuille 1
_Je veux rien ajouter sur les feuilles
.Pourrais je vous envoyer mon fichier ?
Re,
« -il y'a des infos qui sont dans la feuille 2 et ne le sont pas dans la feuille 1 » Lequelles ?
« Pourrais je vous envoyer mon fichier ? » oui via : https://www.cjoint.com/
Ici : Comment utiliser Cjoint
Cdlt
« -il y'a des infos qui sont dans la feuille 2 et ne le sont pas dans la feuille 1 » Lequelles ?
« Pourrais je vous envoyer mon fichier ? » oui via : https://www.cjoint.com/
Ici : Comment utiliser Cjoint
Cdlt
Bonjour,
Avec le fichier c'est bien plus facile à comprendre.
Une solution assez simpliste (mais déconseillée) pourrait être :
Un code qui se base sur l'utilisation de la cellule active est une très grande source de dysfonctionnements !
L'emploi de Select, ActiveCell, Selection, ... est à bannir, il est préférable d'utiliser une référence à un objet déclaré qu'il soit actif ou non.
Avec le fichier c'est bien plus facile à comprendre.
Une solution assez simpliste (mais déconseillée) pourrait être :
'Suppression des données si confirmation
If (Confirmation = vbYes) Then
Worksheets(2).Rows(Selection.Row).Delete Shift:=xlUp
Rows(Selection.Row).Delete Shift:=xlUp
Unload Me
End If
Un code qui se base sur l'utilisation de la cellule active est une très grande source de dysfonctionnements !
L'emploi de Select, ActiveCell, Selection, ... est à bannir, il est préférable d'utiliser une référence à un objet déclaré qu'il soit actif ou non.
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("LesSuivis").Range("A10:A").Value = Sheets("LesPlans").Range("A10:A").Value
End Sub
merci d'avance