Microsoft 365 code pour ajout

Marvin57 · 18 Avril 2024

Bonjour tout le monde,

dans le fichier ci-joint, j'aurai besoin de votre aide s'il vous plaît.

Explications :

Il y a un onglet nommé RESERVE et un onglet nommé AJOUT.

Mon souhait serait de pouvoir ajouter via l'onglet AJOUT des données non existantes en RESERVE. C'est à dire le créer lors d'un ajout parmi les autres en créant un nouvel ID comme vous le voyez dans le tableau de l'onglet ajout sur les deux dernières lignes.

Donc en gros, mettre à jour les données RESERVE et si besoin comme les deux dernières lignes du tableau de l'onglet AJOUT n'existent pas dans la RESERVE, alors il faudrait créer les ID non existant et mettre à jour la RESERVE.

J'espère avoir bien expliqué mon souhait.

Merci d'avance à vous.

Marvin57

sylvanu · 18 Avril 2024

PJ à tester.

sylvanu · 18 Avril 2024

Bonjour Marvin,
Un essai en PJ :

VB:

Sub UpdateReserve()
Dim Ajout, Reserve, Najout%, i%, j%, C%, Present
Ajout = [Tableau2]              ' Transfert tableau Ajout dans array
Reserve = [Tableau5]            ' Transfert tableau Reserve dans array
Najout = 0                      ' Pour compter le nombre de lignes ajoutées pour message de sortie
For i = 1 To UBound(Ajout)      ' pour toutes les lignes
    ID = Ajout(i, 10)           ' On récupère l'ID
    Present = 0                 ' Présent=0 alors ID absent, =1 ID déjà present
    For j = 1 To UBound(Reserve) ' Pour chaque ligne de Reserve
        If Reserve(j, 1) = Ajout(i, 10) Then    ' On vérifie les ID
            Present = 1: Exit For               ' Si ID présent, on sort
        End If
    Next j
    If Present = 0 Then         ' Donc ID absent
        [Tableau5].ListObject.ListRows.Add              ' Alors on crée une nouvelle ligne
        Ligne = [Tableau5].ListObject.ListRows.Count
        For C = 1 To 9          ' On recopie les 9 champ décalés de 1 en colonne
            [Tableau5].Item(Ligne, C + 1) = [Tableau2].Item(i, C)
        Next C
        [Tableau5].Item(Ligne, 1) = [Tableau2].Item(i, 10)  ' On recopie l'ID du champ 10 dans le champ 1
        Najout = Najout + 1     ' On incrément le nbre de lignes ajoutées
    End If
Next i
If Najout = 0 Then MsgBox "Aucune ligne ajoutée." Else MsgBox Najout & " ligne(s) ajoutée(s)." ' Bilan en sortie
End Sub

Marvin57 · 18 Avril 2024

sylvanu à dit:

Bonjour Marvin,
Un essai en PJ :

VB:

Sub UpdateReserve()
Dim Ajout, Reserve, Najout%, i%, j%, C%, Present
Ajout = [Tableau2]              ' Transfert tableau Ajout dans array
Reserve = [Tableau5]            ' Transfert tableau Reserve dans array
Najout = 0                      ' Pour compter le nombre de lignes ajoutées pour message de sortie
For i = 1 To UBound(Ajout)      ' pour toutes les lignes
    ID = Ajout(i, 10)           ' On récupère l'ID
    Present = 0                 ' Présent=0 alors ID absent, =1 ID déjà present
    For j = 1 To UBound(Reserve) ' Pour chaque ligne de Reserve
        If Reserve(j, 1) = Ajout(i, 10) Then    ' On vérifie les ID
            Present = 1: Exit For               ' Si ID présent, on sort
        End If
    Next j
    If Present = 0 Then         ' Donc ID absent
        [Tableau5].ListObject.ListRows.Add              ' Alors on crée une nouvelle ligne
        Ligne = [Tableau5].ListObject.ListRows.Count
        For C = 1 To 9          ' On recopie les 9 champ décalés de 1 en colonne
            [Tableau5].Item(Ligne, C + 1) = [Tableau2].Item(i, C)
        Next C
        [Tableau5].Item(Ligne, 1) = [Tableau2].Item(i, 10)  ' On recopie l'ID du champ 10 dans le champ 1
        Najout = Najout + 1     ' On incrément le nbre de lignes ajoutées
    End If
Next i
If Najout = 0 Then MsgBox "Aucune ligne ajoutée." Else MsgBox Najout & " ligne(s) ajoutée(s)." ' Bilan en sortie
End Sub

Bonjour sylvanu,

Merci pour cette première proposition.
Alors le rajout des ID non existants fonctionne comme voulu. Mais il fallait également mettre à jour la RESERVE avec les autres ID.

Est-ce possible ?

Merci d'avance
Marvin57

sylvanu · 18 Avril 2024

Re,
PJ à tester.

Marvin57 · 18 Avril 2024

sylvanu à dit:

Bonjour Marvin,
Un essai en PJ :

VB:

Sub UpdateReserve()
Dim Ajout, Reserve, Najout%, i%, j%, C%, Present
Ajout = [Tableau2]              ' Transfert tableau Ajout dans array
Reserve = [Tableau5]            ' Transfert tableau Reserve dans array
Najout = 0                      ' Pour compter le nombre de lignes ajoutées pour message de sortie
For i = 1 To UBound(Ajout)      ' pour toutes les lignes
    ID = Ajout(i, 10)           ' On récupère l'ID
    Present = 0                 ' Présent=0 alors ID absent, =1 ID déjà present
    For j = 1 To UBound(Reserve) ' Pour chaque ligne de Reserve
        If Reserve(j, 1) = Ajout(i, 10) Then    ' On vérifie les ID
            Present = 1: Exit For               ' Si ID présent, on sort
        End If
    Next j
    If Present = 0 Then         ' Donc ID absent
        [Tableau5].ListObject.ListRows.Add              ' Alors on crée une nouvelle ligne
        Ligne = [Tableau5].ListObject.ListRows.Count
        For C = 1 To 9          ' On recopie les 9 champ décalés de 1 en colonne
            [Tableau5].Item(Ligne, C + 1) = [Tableau2].Item(i, C)
        Next C
        [Tableau5].Item(Ligne, 1) = [Tableau2].Item(i, 10)  ' On recopie l'ID du champ 10 dans le champ 1
        Najout = Najout + 1     ' On incrément le nbre de lignes ajoutées
    End If
Next i
If Najout = 0 Then MsgBox "Aucune ligne ajoutée." Else MsgBox Najout & " ligne(s) ajoutée(s)." ' Bilan en sortie
End Sub

Re sylvanu,

écoutez, je suis vraiment désolé mais je me suis trompé ce matin en vous transmettant le fichier !!

Dans le fichier corrigé ci présent vous verrez que dans l'onglet AJOUT la colonne NOM se trouve à l'extrémité droite et non à gauche comme au départ. Je ne sais pas ou j'avais la tête, désolé.

Donc pour revenir au souhait :

Si l'ID est inexistant il doit le créer, cela avait bien fonctionné. Sauf que en même temps il doit placé la nouvelle ligne avec le NOM, sinon il ne la place pas au bon endroit.
Comme vous le verrez j'ai cliquez pour transférer et voyez le désordre qu'il fait.
J'espère que vous me pardonnez .

A+
Marvin57

Marvin57 · 18 Avril 2024

sylvanu à dit:
Re,
PJ à tester.

Re sylvanu,

je vous ai écris à l'instant je suis désolé pour mon erreur !!!

sylvanu · 18 Avril 2024

Le fichier est un xlsx sans les macros, que dois je vérifier ?

Marvin57 à dit:
Comme vous le verrez j'ai cliquez pour transférer et voyez le désordre qu'il fait.

Dans la V2 j'ai fait l'essai :

Les deux lignes R1214 et R1215 sont bien recopiées avec les bonnes valeurs.

Donc je ne comprends rien, faites un effort de clarté.

Marvin57 · 18 Avril 2024

sylvanu à dit:
Le fichier est un xlsx sans les macros, que dois je vérifier ?

Dans la V2 j'ai fait l'essai :
Regarde la pièce jointe 1195294
Les deux lignes R1214 et R1215 sont bien recopiées avec les bonnes valeurs.

Donc je ne comprends rien, faites un effort de clarté.

Désolé sylvanu,

ouvrez le fichier et cliquez sur le bouton pour transférer et vous verrez déja qu'il ne place pas dans l'ordre et qu'il place les ID en première colonne ainsi qu'en dernière colonne.
Mon erreur ce matin était la colonne NOM dans l'onglet AJOUT, car en réalité elle se situe comme dans ce fichier à la dernière colonne. Donc lors d'une nouvelle création d'un ID il devra placé la nouvelle ligne non à la fin du tableau de l'onglet RESERVE mais dans l'ordre des NOMS en colonne NOM.

J'espère que j'ai bien expliqué cette fois ci.

sylvanu · 18 Avril 2024

Vous êtes sur que Prénom et Nom ne se suivent pas ?
Cela me semble absurde.

Outre le fait qu'il faille tout reprendre.

Marvin57 · 18 Avril 2024

sylvanu à dit:
Vous êtes sur que Prénom et Nom ne se suivent pas ?
Cela me semble absurde.

Outre le fait qu'il faille tout reprendre.

Oui, car à l'époque j'avais cela de cette façon. J'aurai pu faire mieux mais c'est fait ainsi.

Je suis vraiment désolé pour cette erreur ce matin.

sylvanu · 18 Avril 2024

PJ à tester.

Marvin57 · 18 Avril 2024

sylvanu à dit:
PJ à tester.

OK, c'est comme souhaité sauf qu'il oubli de remplir la dernière colonne

sylvanu · 18 Avril 2024

PJ à tester.

Marvin57 · 18 Avril 2024

sylvanu à dit:
PJ à tester.

MERCI BEAUCOUP. Super travail sylvanu. Je tire mon chapeau.

Encore désolé pour le désordre, il y a des jours comme ça !

Peut-être à une prochaine fois.

Cordialement Marvin57

Microsoft 365 code pour ajout

Marvin57

XLDnaute Occasionnel

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Marvin57

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

Marvin57

XLDnaute Occasionnel

Pièces jointes

Marvin57

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Marvin57

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Marvin57

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

Marvin57

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

Marvin57

XLDnaute Occasionnel

Discussions similaires