Microsoft 365 formule Excel pour dupliquer une ligne selon une valeur dans une cellule

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Carlot

XLDnaute Nouveau
Bonjour à tous,

Je souhaite voir avec vous si il est possible de dupliquer une ligne vers le haut selon un une cellule.
en effet Sage propose l'intégration analytique mais celui-ci demande que la ligne soit présent 2 fois exemple :
04/01/2021F2101161112000AGOEG239670
04/01/2021F2101161112000AGOEASIEGE236970
04/01/2021F2101161112000AGOEG00
04/01/2021F2101144566000AGOEG00
04/01/2021F2101144566000AGOEG2037,20

ici SIEGE est dupliquer pour le même montant.
le soucis c'est que mon fichier d'origine n'est pas dupliqué, c'est donc une ligne à créer à chaque fois qu'il y a une analytique...

merci de votre aide
 
Trier par date Trier par votes
Bonjour Soan,

j'ai encore besoin de ton aide si tu à du temps pour moi,
@soan
j'ai deux bases de donnés un qui s'appelle COALA et l'autre DEXT

je souhaite comparer les deux bases, en comparant la colonne D de chaque base.
je souhaite vérifier que les données de DEXT sont bien dans COALA.

si elle est manquante je souhaite le faire apparaitre dans la feuille "resultat. "

Je te remercie grandement pour ton aide.
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour Carlot, le fil,

la feuille "RESULTAT" est vide ; va sur la feuille "DEXT", et fais Ctrl e. 🙂

VB: 
Option Explicit

Sub Essai()
  If ActiveSheet.Name <> "DEXT" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 4).End(3).Row: If n = 1 Then Exit Sub
  Dim T, r As Range, ref$, i&, j&: T = [D1].Resize(n): j = 1
  Application.ScreenUpdating = 0
  With Worksheets("RESULTAT")
    .Columns(1).ClearContents 'pour effacer d'éventuels anciens résultats
    For i = 2 To n
      ref = T(i, 1)
      If ref <> T(i - 1, 1) Then
        Set r = Worksheets("COALA").Columns(4).Find(ref, , -4163, 1, 1)
        If r Is Nothing Then
          .Cells(j, 1) = ref: j = j + 1
        End If
      End If
    Next i
    .Select
  End With
End Sub

soan
 

Pièces jointes

Vote positif 0 Vote négatif
soan à dit:
Bonjour Carlot, le fil,

la feuille "RESULTAT" est vide ; va sur la feuille "DEXT", et fais Ctrl e. 🙂

VB: 
Option Explicit

Sub Essai()
  If ActiveSheet.Name <> "DEXT" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 4).End(3).Row: If n = 1 Then Exit Sub
  Dim T, r As Range, ref$, i&, j&: T = [D1].Resize(n): j = 1
  Application.ScreenUpdating = 0
  With Worksheets("RESULTAT")
    .Columns(1).ClearContents 'pour effacer d'éventuels anciens résultats
    For i = 2 To n
      ref = T(i, 1)
      If ref <> T(i - 1, 1) Then
        Set r = Worksheets("COALA").Columns(4).Find(ref, , -4163, 1, 1)
        If r Is Nothing Then
          .Cells(j, 1) = ref: j = j + 1
        End If
      End If
    Next i
    .Select
  End With
End Sub

soan
Cliquez pour agrandir...

eh bonjour @soan,

Merci c'est exactement ça!!

j'ai une petite demande en plus..
Pour le résultat j'aimerais que toute les ligne manquante soit disponible dans Résultat, exemple pour la 9460596592

j'aimerais avoir:

20/01/2021​
ACFV.J
9460596592​
V.J Distribution Sarl 2210120162850 cb
0​
64​
EReceipt Bank
20/01/2021​
AC
9460596592​
V.J Distribution Sarl 2210120162850 cb
64​
0​
EReceipt Bank


merci soan
 
Vote positif 0 Vote négatif
Bonjour Carlot, le fil,

j'ai pas pu t'répondre plus tôt. 😢 (manque de temps)

tu as écrit : « Merci c'est exactement ça!! »

merci pour ton retour ! 😊


tu as écrit : « Pour le résultat j'aimerais que toutes les lignes manquantes soient disponibles dans Résultat » ; j'ai compris que pour une ligne de résultat, tu veux qu'elle apparaisse entièrement, et pas seulement la référence piece de la colonne D, donc en fait les infos de toutes les colonnes de cette ligne ; rebelote :​

la feuille "RESULTAT" est vide ; va sur la feuille "DEXT", et fais Ctrl e. 🙂

le nouveau code VBA est celui-ci :

VB: 
Option Explicit

Sub Essai()
  If ActiveSheet.Name <> "DEXT" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 4).End(3).Row: If n = 1 Then Exit Sub
  Dim T, r As Range, ref$, i&, j&: T = [A1].Resize(n, 10): j = 1
  Application.ScreenUpdating = 0
  With Worksheets("RESULTAT")
    .Columns("A:J").ClearContents 'pour effacer d'éventuels anciens résultats
    For i = 2 To n
      ref = T(i, 4)
      If ref <> T(i - 1, 4) Then
        Set r = Worksheets("COALA").Columns(4).Find(ref, , -4163, 1, 1)
        If r Is Nothing Then
          With .Cells(j, 1)
            .Value = T(i, 1)         'date
            .Offset(, 1) = T(i, 2)   'journal
            .Offset(, 2) = T(i, 3)   'compte
            .Offset(, 3) = ref       'piece
            .Offset(, 4) = T(i, 5)   'libelle
            .Offset(, 5) = T(i, 6)   'debit
            .Offset(, 6) = T(i, 7)   'credit
            .Offset(, 7) = T(i, 8)   'monnaie
            .Offset(, 8) = T(i, 9)   'originePiece
            .Offset(, 9) = T(i, 10)  'refDocument
          End With
          j = j + 1
        End If
      End If
    Next i
    .Select
  End With
End Sub

soan
 

Pièces jointes

Vote positif 0 Vote négatif
bonjour @soan ,

merci pour ton fichier le résultat est correct, il me manque une petite chose encore pour la perfection..

je souhaite voir l'écriture comptable entièrement, comme cela:


20/01/2021ACFV.J9460596592V.J Distribution Sarl 2210120162850 cb064EReceipt Bankhttps://rbnk.me/i/7li892KBKgk
20/01/2021AC9460596592V.J Distribution Sarl 2210120162850 cb640EReceipt Bankhttps://rbnk.me/i/7li892KBKgk

Une écriture complète à le même numéro pièce "exemple 9460596592"

je souhaite donc voir toutes les lignes qui ne sont pas dans l'onglet Coala mais présent dans DEXT.

je sais que je suis chiant..
vraiment navré
merci
 
Vote positif 0 Vote négatif
Bonjour Carlot,

ah, ben voilà c'que c'est d'pas montrer dès l'début un exemple du résultat attendu ! 😜 au départ, j'avais pensé qu'c'était juste le n° pièce, car tu parlais d'comparer seulement les 2 colonnes D (entre la feuille "DEXT" et la feuille "COALA") ; puis j'ai pensé qu'tu voulais seulement la ligne entière ; et finalement, c'est toute l'écriture comptable ! soit, ton vœu est maint'nant exaucé et réalisé (enfin, j'crois ! 😁 😜) ; c'est fait dans l'fichier joint ; même manip que précédemment. 🙂​

soan
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

E
  • Question Question
Microsoft 365 Formule excel pour utiliser la dernier donnée d'une ligne dans une formule
Réponses
8
Affichages
331
emmanuel.conche
E
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
314
Phil69970
Phil69970
I
  • Question Question
XL 2019 Suite à une formule, enlever le doublon dans le résultat avec fonction SI
Réponses
2
Affichages
443
IderMTC
I
A
  • Question Question
XL 2019 Ajouter ou supprimer une ligne selon un mot trouvé dans une autre feuille
Réponses
1
Affichages
432
Oneida
Oneida
C
  • Résolu(e)
XL 2021 VBA créer une ligne quand la cellule est > 0
Réponses
6
Affichages
640
Cousinhub
Cousinhub
oguruma
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
415
oguruma
oguruma
L
  • Question Question
Microsoft 365 Macro pour aide facturation
Réponses
3
Affichages
489
AtTheOne
AtTheOne
S
  • Question Question
XL 2019 Besoin d'aide pour macro VBA avec condition pour dupliquer ligne selon si présence d'une cellule
Réponses
4
Affichages
792
samsoun
S
B
  • Question Question
XL 2016 Macro pour identifier un texte dans un tableau et appliquer une modification sur une cellule sur la même ligne
Réponses
5
Affichages
560
ChTi160
ChTi160
V
  • Question Question
Microsoft 365 Dupliquer une ligne dans la même feuille selon plusieurs conditions
Réponses
4
Affichages
658
VirginieO
V
X
  • Résolu(e)
XL 2016 Souci pour mettre un nombre dans une cellule en croisant colonne et ligne.
2
Réponses
16
Affichages
1 K
Xender
X
F
  • Question Question
XL 2019 Recherche en ligne dans matrice et ramener cellule de la même ligne
Réponses
12
Affichages
1 K
TooFatBoy
TooFatBoy
U
  • Question Question
Microsoft 365 Selon chiffre saisi, signalement d'une erreur dans une formule
Réponses
5
Affichages
803
USTY_56
U
M
  • Résolu(e)
XL 2016 mail en automatique dans excel destinataire en fonction de la valeur d une cellule
Réponses
11
Affichages
1 K
mathieu20
M
L
  • Question Question
XL 2019 Formule ou VBA intersection tableau selon deux colonnes et une ligne
Réponses
7
Affichages
866
Hasco
Hasco
O
  • Résolu(e)
XL 2019 Formule Excel qui fonctionne dans une colonne et non dans 1 ligne
Réponses
2
Affichages
601
onyirimba
O
J
  • Question Question
XL 2016 dupliquer une ligne en fonction d'une valeur dans une cellule
Réponses
3
Affichages
1 K
fanch55
fanch55
S
  • Résolu(e)
Microsoft 365 Dupliquer une ligne selon une valeur X (macro)
Réponses
4
Affichages
1 K
SELKAIM
S
X
  • Résolu(e)
XL 2019 Dupliquer une selection (ligne) selon la variable d'une cellule
Réponses
5
Affichages
2 K
Staple1600
Staple1600
M
  • Question Question
Microsoft 365 Comment dupliquer une formule protégée et masquée sur une autre cellule de la même feuille ?
Réponses
3
Affichages
861
Etoto
Etoto
Retour