Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Transférer une ligne, sur une autre feuille selon la valeur d'une cellule

A

Acritas

XLDnaute Nouveau
Bonjour,

J'ai deux feuilles sur mon classeur(feuille "Situation" & feuille "Entrepôt")

Selon la valeur d'une des cellules de la colonne C ( "1" ou "0") , je veux que la ligne entière bascule sur la première ligne disponible de la feuille ''Entrepôt"
et vise versa si je change la valeur d'une de ces cellules dans la feuille Entrepôt la ligne revient se coller sur la première ligne disponible de la feuille "Situation"
le tout dois se faire automatiquement sans avoir à faire exécuter le code (appuyer F5) car l'utilisateur lambda ne doit pas toucher à VBA.

Merci par avance pour votre aide
 

Pièces jointes

  • Fichier de Test.xlsx
    18.4 KB · Affichages: 13
Trier par date Trier par votes

Phil69970

XLDnaute Barbatruc
@Acritas

1) Envoyer un fichier en privé est contraire à la charte



2) Expliquer qu'il est confidentiel alors que tous les éléments d'identification ont été enlevé c'est pas très logique car si tous les éléments d'identification ont été enlevés il n'est plus confidentiel il me semble !!!
Pour info une date de naissance sans le nom/prénom de la personne n'est pas un élément d'identification et il y a ~2000 naissances par jour en France !!!!



3) C'est un forum public il me semble donc les demandes en privé n'ont pas leur place ici.

4) Fournir un fichier avec une macro fait par une autre personne en expliquant que cela ne fonctionne pas c'est un peu fort de café !!!


(La macro fonctionne mais il faut lire et comprendre les commentaires que la personne qui à fait la macro à écrit !!!! )

5) Un fichier avec plus de 850 colonnes est-ce raisonnable ?

6) Le fichier du post #1 n'est en rien représentatif du fichier réel
==> 20 colonnes dans le fichier du post #1 contre plus de 850 colonnes de le vrai fichier j'appelle pas cela représentatif

Bref pour une première demande je conseillerais à @Acritas d'aller lire la charte ==> ici

Bonne lecture

@Phil69970
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Si l'on veut transférer d'un seul coup toutes les lignes de valeurs 0 en colonne C, la méthode la plus rapide est d'utiliser des tableaux VBA, voyez ce fichier (3) :
VB: 
Sub Transfert()
Dim ncol%, Sh As Worksheet, Sh1 As Worksheet, Sh2 As Worksheet, ShDest As Worksheet, tablo, resu(), i&, n&, j%, nn&
ncol = 20 'nombre de colonnes
Set Sh = ActiveSheet
Set Sh1 = Sheets("Situation ") 'pourquoi un espace ???
Set Sh2 = Sheets("Entrepôt")
If Sh.Name = Sh1.Name Then Set ShDest = Sh2
If Sh.Name = Sh2.Name Then Set ShDest = Sh1
If ShDest Is Nothing Then Exit Sub
If Sh.FilterMode Then Sh.ShowAllData 'si la feuille est filtrée
With Sh.Range("B5:B" & Sh.Range("E" & Sh.Rows.Count).End(xlUp).Row).Resize(, ncol)
    If .Row < 5 Then Exit Sub 'si le tableau est vide
    tablo = .FormulaR1C1 'matrice, plus rapide
    ReDim resu(1 To UBound(tablo), 1 To ncol)
    For i = 1 To UBound(tablo)
        If tablo(i, 2) = 0 Then 'critère 0 en colonne C
            n = n + 1
            For j = 1 To ncol
                tablo(n, j) = tablo(i, j)
            Next j
        Else
            nn = nn + 1
            For j = 1 To ncol
                resu(nn, j) = tablo(i, j)
            Next j
        End If
    Next i
    '---restitution en 1ère feuille---
    Application.ScreenUpdating = False
    .Borders.LineStyle = xlNone 'efface toute bordure
    If nn Then
        .Resize(nn).FormulaR1C1 = resu
        .Resize(nn).BorderAround Weight:=xlMedium 'pourtour
        .Borders(xlEdgeTop).LineStyle = xlNone
    End If
    If nn < .Rows.Count Then
        With .Rows(nn + 1).Resize(.Rows.Count - nn)
            .ClearContents 'RAZ sous le tableau
            .Interior.ColorIndex = xlNone 'efface  les couleurs
            .Columns(2).Validation.Delete
        End With
    End If
End With
'---restitution en 2ème feuille---
If ShDest.FilterMode Then ShDest.ShowAllData 'si la feuille est filtrée
i = ShDest.Range("E" & ShDest.Rows.Count).End(xlUp).Row + 1
If n Then
    With ShDest.Cells(i, 2).Resize(n, ncol)
        .FormulaR1C1 = tablo
        .BorderAround Weight:=xlMedium 'pourtour
        .Borders(xlEdgeTop).LineStyle = xlNone
        .Columns(2).Validation.Delete
        .Columns(2).Validation.Add xlValidateList, Formula1:="0,1"
        With Union(.Columns(7), .Columns(11), .Columns(15), .Columns(19), .Columns(20))
            .Interior.Color = .Cells(0, 1).Interior.Color 'fond gris
            .Font.Bold = True 'gras
            .Font.Color = vbBlack 'police noire
            .HorizontalAlignment = xlCenter 'centrage
        End With
        .Columns(20).Font.Color = vbWhite 'police blanche
    End With
    Application.Goto ShDest.Cells(i, 2) 'facultatif
End If
End Sub
Les tableaux sont restitués formatés et sans lignes vides.

Edit : ajouté le traitement des listes de validation en colonne C.

Bonne nuit.
 

Pièces jointes

  • Fichier de Test(3).xlsm
    33.5 KB · Affichages: 3
Dernière édition:
Vote positif 0 Vote négatif
A

Acritas

XLDnaute Nouveau
Bonsoir Phil69970 :

J'ai précisé depuis le départ que j'étais totalement novice en VBA, cella implique aussi l'utilisation de forum...ce n'est qu'hier que j'ai posté sur un forum pour la toute première fois de toute ma vie... et j'ai déjà bien plus 'un certain age... en tout cas je suis plus tout jeune...
Qu'à cella ne tienne, je crois avoir eu la chance du débutant... j'ai suivis les différentes orientations qui m'étaient données y compris en message privé et j'ai réussis à avoir le rendu que je voulais, bien bien loin des démarches de calculs spécifiques de formules... je ne demandais que la copie d'une lignes vers une autre feuille en fonction de la valeur d'une cellule de cette ligne et... quelqu'un me l'a donné du premier coup sans question, sans moults commentaires...(je reviendrais clore le post et le remercier et donner à tous le code qui à marché en publiant le fichier qui est bien celui que j'ai posté ici et qui a permis de réussir mon objectif), la seule chose c'est qu'utilisant VBA depuis hier, j'ignorais totalement où mettre ce code...

j'espère qu'à l'avenir, quand quelqu'un t'écrit en privé tu l'engèlera en privé !

je reste courtois car je suis nouveau et ne connais vraiment pas les usages de ce forum qui m'a permis de régler un soucis... du coup je veux y rester
 
Vote positif 0 Vote négatif
A

Acritas

XLDnaute Nouveau
@Dranreb

merci beaucoup de ton retour et de la patience prise pour m'aider dans ma recherche, cela fait deux semaines que je suis dessus et ça commençait vraiment à être chaud sur moi... j'avais intérêt à produire du résultat... demain, enfin ce matin dans 4 heures c'était mon ultimate day for end the game...

Oui, le fichier ta solution pour régler ma demande du fichier non représentatif de 20 colonnes a permis de gérer un fichier de 800 colonnes enfin je crois même qu'il y en a plus...
bon les puristes vont s'arracher les cheveux mais... dites vous seulement que j'au eu a bénéficier de la chance du débutant...

je vous communique donc le fichier qui marche aussi bien sur 20 colonnes que sur plus de 800 colonnes

une dernière question sur ce post : comment fait-on pour mettre en évidence la bonne réponse et reconnaitre le soutient de quelqu'un? c'est vraiment un début pour moi!!!
 

Pièces jointes

  • A- Fichier de Test.xlsm
    27.3 KB · Affichages: 2
Dernière édition:
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour Acritas, le forum,

La solution de Dranreb que vous utilisez présente 2 inconvénients :

- elle ne traite qu'une seule cellule à la fois, ce sera pénible s'il faut transférer 1000 lignes ou plus

- les tableaux ne sont pas formatés correctement (bordures).

A+
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
S'il faut inverser le critère de transfert entre les 2 feuilles utiliser la variable critere, fichier (4) :
VB: 
If tablo(i, 2) = critere Then 'critère en colonne C
Mais ça ne me paraît pas vraiment nécessaire.
 

Pièces jointes

  • Fichier de Test(4).xlsm
    33.7 KB · Affichages: 5
Vote positif 1 Vote négatif
A

Acritas

XLDnaute Nouveau
Bonjour @franch55

j'avoue ne pas avoir essayer d'utiliser ta solution vu le niveau d'urgence que j'avais, maintenant que je suis plus calme, je test toutes les solutions qui m'ont été proposées cependant je ne vois pas le menu contextuel proposé dans ton fichier.

Peux-tu s'il te plaît renvoyer le fichier en ayant déjà rendu la macro fonctionnelle dans ton fichier(j'avoues que j'ignore quoi faire pour)?

Par ailleurs dès que je protège l'onglet, et/le classeur, les macros ne fonctionne plus,

Comment faire pour que cette macro de VBA bypass la restriction en écriture par mot de passe sur une feuille et/ou le classeur?

En français facile je souhaite rendre inopérant pour l'utilisateurs lambda, l'accès aux formules de calculs(multiples) et au mises en formes conditionnelles(également multiples)

Merci par avance de votre aide
 
Dernière édition:
Vote positif 0 Vote négatif
A

Acritas

XLDnaute Nouveau
Oka
Okay j'ai vu et compris! on sélectionne le bouton par clic droit et on le déplace tout simplement

quel serait la variant du code si les cellules conservaient leur mise en forme d'origine ?
 
Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc
Acritas à dit:
Merci bien!! j'ai vu ! j'ai aussi vu que tu as rajouté un bouton ''transfert des valeurs 1''
Cliquez pour agrandir...
Ce ne doit pas être mon classeur ? ( aucun bouton )
Acritas à dit:
En mettant un mot de passe sur les feuille ça marchera aussi
Cliquez pour agrandir...
Un mot de passe en Excel est illusoire au point de vie sécurité
car il peut être craqué et bypasser très facilement.
Si toutefois vous voulez quand même protéger la feuille, le classeur joint en tient compte .


Acritas à dit:
comment faire pour déplacer ton bouton ? et le mettre au niveau de la cellule A2?
Cliquez pour agrandir...
????
 

Pièces jointes

  • Fichier de Test.xlsm
    39.2 KB · Affichages: 2
Vote positif 0 Vote négatif
A

Acritas

XLDnaute Nouveau
Acritas à dit:
Besoin d'une variante de code qui n'agit pas sur la mise en forme originale des cellules
Cliquez pour agrandir...
très bien je regarde et te reviens
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

A
  • Question
XL 2019 Ajouter ou supprimer une ligne selon un mot trouvé dans une autre feuille
Réponses
1
Affichages
172
Oneida
G
  • Question
XL 2021 rassembler des données de plusieurs feuilles d'un classeur sur une nouvelle feuille du meme classeur selon un critère
Réponses
1
Affichages
168
Staple1600
D
  • Question
Microsoft 365 combiner deux plages de données sur deux feuilles excel différentes pour un TCD
Réponses
4
Affichages
247
Daniel200666
D
S
  • Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
220
salma_hayek
S
C
  • Question
XL 2021 Transfert d'une feuille sur une autre feuille
Réponses
2
Affichages
297
clausen
C
J
  • Question
Autres Supprimer une ligne dans une feuille à partir d'une valeur rentrée dasn une cellule d'une autre feuille
2
Réponses
25
Affichages
1 K
jmc78
J
  • Résolu(e)
Microsoft 365 VBA - Coller la valeur d'une cellule d'une autre feuille...
Réponses
11
Affichages
540
13Hubert
M
  • Question
XL 2019 VBA Valeur d'une cellule dont la feuille et la ligne est dans la feuille courante
Réponses
13
Affichages
456
job75
  • Résolu(e)
Microsoft 365 Obtenir par formule/champs nommés … ? la valeur d'une cellule de la feuille active que récupère une feuille non active … possible ? (sans vba)
2
Réponses
18
Affichages
710
RyuAutodidacte
Z
  • Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
205
ZiM
Z
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…