exportation de données d'une feuille à une autre

[Néné26]

bonjour à tous,

je voudrais copier dans un autre onglet un groupe de cellule quand une de ces cellule est différente de 0.
ex:

chaque cellule de la colonne E différente de 0, je copie la ligne en question et celle au dessus.

je pense que c'est faisable, mais je ne sais pas comment automatiser la chose.

Merci d'avance pour vos réponses.

 

[Base_ile]

Re : exportation de données d'une feuille à une autre

Bonjour

Le plus facile sans macro :

1) Assures toi que ton tableau procède une ligne de titre (en ligne 1) sinon il faut créer les titres.
2) Sélectionne toutes les cellules, clique sur données/filtre/filtre automatique
3) Des petit triangles apparaissent a coté de chaque titre des colonnes, cliques sur le triangle correspondant à la colonne E. clique alors sur 'personnalisé', un menu apparait choisi alors 'différente de' saisi '0' cliques enfin sur OK ... ta liste est triée sur place
4) Copie alors ta plage de cellules et colles la dans un nouvel onglet.

Les lignes contenant '0' en colonne E ne seront pas copiées

Bon essais

Base_ile

 

[cibleo]

Re : exportation de données d'une feuille à une autre

Bonjour Néné26, Base ile,

Vois ce lien et la réponse que Bruno m'a apportée, il s'agit d'une macro événementielle à placer dans la fenêtre de code de ta feuille concernée. (Evénement ---> Change)

A adapter à ton cas bien évidemmment.

https://www.excel-downloads.com/thr...ur-copier-ligne-sur-une-autre-feuille.106206/

Amicalement Cibleo

 

[Néné26]

Re : exportation de données d'une feuille à une autre

rebonjour à tous,

merci pour l'aide, mais j'hésite entre je ne comprends rien et je suis pas loin de comprendre mais j'y suis pas encore...
je vous envoie le fichier avec.
quand on trouve un chiffre dans la colonne E de la feuille bordereau_T, il faudrait que la ligne en question et la ligne du dessus soient copiées dans la feuille bordereau....
quelqu'un pourrait-il m'aider, et surtout me faire comprendre la logique utilisée pour cette action?

merci d'avance.

 

[cibleo]

Re : exportation de données d'une feuille à une autre

Bonjour Nené26,

Colle cette macro événementielle dans la fenêtre de code de la feuille de calcul "bordereau_T"

Opérations pour afficher ta fenêtre de code :

Click droit sur l'onglet "bordereau_T"
Clic sur Visualiser le code
Ta fenêtre apparait, tu n'as plus qu'à y coller le code.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E4:E500")) Is Nothing Then
  If Target.Value <> "" Then
    With Sheets("bordereau")
      LigVide = .Range("C" & Rows.Count).End(xlUp).Row + 1
      .Range("A" & LigVide).Value = Range("A" & Target.Row).Value
      .Range("B" & LigVide).Value = Range("B" & Target.Row).Value
      .Range("C" & LigVide).Value = Range("C" & Target.Row).Value
      .Range("D" & LigVide).Value = Range("D" & Target.Row).Value
      .Range("E" & LigVide).Value = Range("E" & Target.Row).Value
      .Range("F" & LigVide).Value = Range("F" & Target.Row).Value
      .Range("G" & LigVide).Value = Range("G" & Target.Row).Value
      .Range("H" & LigVide).Value = Range("H" & Target.Row).Value
    End With
  End If
End If
End Sub

Espérant t'avoir aidé,

Cibleo

 

[Néné26]

Re : exportation de données d'une feuille à une autre

Merci Beaucoup Cibleo,

je commence à comprendre un peu comment cela fonctionne. par contre, le transfert d'une feuille à l'autre ne s'effectue pas automatiquement. il faut repasser sur chaque cellule avec la souris pour que le transfert se fasse.

c'est mes options de sécurité, ou bien j'ai encore oublié quelque chose?

Merci d'avance.

Bonjour Nené26,

Colle cette macro événementielle dans la fenêtre de code de la feuille de calcul "bordereau_T"

Opérations pour afficher ta fenêtre de code :

Click droit sur l'onglet "bordereau_T"
Clic sur Visualiser le code
Ta fenêtre apparait, tu n'as plus qu'à y coller le code.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E4:E500")) Is Nothing Then
  If Target.Value <> "" Then
    With Sheets("bordereau")
      LigVide = .Range("C" & Rows.Count).End(xlUp).Row + 1
      .Range("A" & LigVide).Value = Range("A" & Target.Row).Value
      .Range("B" & LigVide).Value = Range("B" & Target.Row).Value
      .Range("C" & LigVide).Value = Range("C" & Target.Row).Value
      .Range("D" & LigVide).Value = Range("D" & Target.Row).Value
      .Range("E" & LigVide).Value = Range("E" & Target.Row).Value
      .Range("F" & LigVide).Value = Range("F" & Target.Row).Value
      .Range("G" & LigVide).Value = Range("G" & Target.Row).Value
      .Range("H" & LigVide).Value = Range("H" & Target.Row).Value
    End With
  End If
End If
End Sub

Espérant t'avoir aidé,

Cibleo

 

[Néné26]

Re : exportation de données d'une feuille à une autre

rebonsoir à tous,

en essayant d'améliorer mes feuilles excel, j'ai essayé de gardé la mise en forme d'une feuille à l'autre....
Y a t il une commande pour garder la mise en forme de la feuille d'origine? tous mes titres ne sont plus soulignés, et mon fichier devient illisible.

Merci d'avance à vous.

Néné26