Microsoft 365 code pour ajout

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Marvin57
  • Date de début Date de début

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
M

Marvin57

XLDnaute Occasionnel
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
 

Pièces jointes

Trier par date Trier par votes
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
 

Pièces jointes

Vote positif 0 Vote négatif
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
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
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
Cliquez pour agrandir...
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
 

Pièces jointes

Vote positif 0 Vote négatif
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é. 🙂
Cliquez pour agrandir...
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.🙈
 

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

C
  • Question Question
Microsoft 365 Ajout de données dans tableau existant
Réponses
9
Affichages
138
chnico80
C
F
  • Résolu(e)
XL 2021 Génération d'un fichier TXT à partir d'une feuille Excel
Réponses
3
Affichages
108
fd.30
F
M
  • Résolu(e)
Microsoft 365 Code pour index
Réponses
9
Affichages
379
Marvin57
M
M
  • Résolu(e)
Microsoft 365 Code transfert
Réponses
11
Affichages
414
Marvin57
M
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
82
eric72
E
F
  • Résolu(e)
XL 2019 Création de cases à cocher dynamiquement
2
Réponses
22
Affichages
261
mapomme
mapomme
M
  • Résolu(e)
Microsoft 365 Code pour mise en couleur
Réponses
2
Affichages
378
Marvin57
M
richardlion
  • Question Question
XL 2016 colonnes automatique
Réponses
0
Affichages
249
richardlion
richardlion
E
  • Question Question
XL 2016 Liste déroulante "pré-chargée"
Réponses
10
Affichages
109
sylvanu
sylvanu
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
92
Pierreavecunp
P
pompaero
  • Question Question
Microsoft 365 Dernière donnée
Réponses
5
Affichages
473
TooFatBoy
TooFatBoy
J
  • Résolu(e)
Microsoft 365 Problème de décompte avec PQ
Réponses
8
Affichages
359
José FELIX
J
O
  • Question Question
Autres recopie de cellules selon la date
Réponses
3
Affichages
153
olivier Clech
O
M
  • Résolu(e)
Microsoft 365 Code pour mise a jour
2
Réponses
26
Affichages
1 K
Marvin57
M
M
  • Résolu(e)
Microsoft 365 Code affichage
Réponses
11
Affichages
736
Marvin57
M
E
  • Question Question
XL 2016 aide tableau acompte
Réponses
5
Affichages
286
chris
chris
A
  • Résolu(e)
XL 2019 Sommer colonne critère texte.
Réponses
10
Affichages
94
ALS35
A
A
  • Question Question
Microsoft 365 INDEX+EQUIV dont le resultat duplique les lignes par erreur
Réponses
5
Affichages
261
aeca
A
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
155
AtTheOne
AtTheOne
M
  • Résolu(e)
Microsoft 365 Code de tri
2
Réponses
22
Affichages
936
Dudu2
Dudu2
Retour