Ajouter un enregistrement (Ligne) si Reference encore non présente

did85 · 22 Janvier 2008

Bonsoir à tous et à toutes,

J'ai 3 onglets de données (Jour 1, Jour 2, Jour 3)
- Colonne A : Référence (unique)
- Colonne B : un nombre
- Colonne C : un poids

Le 4ème onglet totalise, les valeurs des 3 onglets
- J'aimerais savoir comment ajouter une Référence automatiquement quand elle est mentionnée dans l'onglet Jour 2 et Jour 3

Je vous joins le fichier de test "épuré" de mes essais.

Merci de votre aide

Did85

fanfan38 · 22 Janvier 2008

Re : Ajouter un enregistrement (Ligne) si Reference encore non présente

Bonjour
J'espere que c'est ton souhait...

A+ François

did85 · 22 Janvier 2008

Re : Ajouter un enregistrement (Ligne) si Reference encore non présente

Bonsoir François,
je ne pensais pas être clair quand j'ai posté cette nuit, mais c'est parfaitement ça.

par contre, j'aurais aimé avoir quelques explications afin de l'adapter maintenant à mes besoins.

Je reprends donc ton code tel quel :

Code:

Sub maj(lig)
  derlig = Sheets("Recap").Range("a65500").End(xlUp).Row
  For i = 1 To derlig
  'regarde si reference identique
    If Sheets("Recap").Cells(i, 1).Value = Cells(lig, 1).Value Then
      'si oui regarde si la cellule j1 est vide
      If Len(Sheets("Recap").Cells(i, 5).Value) = 0 Then
        Sheets("Recap").Cells(i, 5).Value = Cells(lig, 3).Value
       Else 'sinon regarde si la cellule j2 est vide
        If Len(Sheets("Recap").Cells(i, 4).Value) = 0 Then
          Sheets("Recap").Cells(i, 4).Value = Cells(lig, 3).Value
         Else 'sinon remplit j3
          Sheets("Recap").Cells(i, 3).Value = Cells(lig, 3).Value
        End If
      End If
      Exit Sub
    End If
  Next
    Sheets("Recap").Cells(i, 1).Value = Cells(lig, 1).Value
    Sheets("Recap").Cells(i, 5).Value = Cells(lig, 3).Value
End Sub

Je ne comprends pas pourquoi on regarde en J1 de la feuille Recap :

Code:

'si oui regarde si la cellule j1 est vide
      If Len(Sheets("Recap").Cells(i, 5).Value) = 0 Then
        Sheets("Recap").Cells(i, 5).Value = Cells(lig, 3).Value

Dans la feuille RECAP, je ne travaille que sur les colonnes A, B, C, D, mais ça fonctionne, donc il doit bien y avoir une explication que je ne comprends pas.

Encore merci de l'aide apportée.

Didier

Ajouter un enregistrement (Ligne) si Reference encore non présente

did85

XLDnaute Junior

Pièces jointes

fanfan38

XLDnaute Barbatruc

did85

XLDnaute Junior

Discussions similaires

Ajouter un enregistrement (Ligne) si Reference encore non présente

did85

XLDnaute Junior

Pièces jointes

fanfan38

XLDnaute Barbatruc

did85

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency