remplissage tableau en fonction des dates

[hbb]

Bonjour à tous,

Est-il possible en VBA Excel d'écrire le code correspondant à cette manip.

1ère étape : Remplissage d'un tableau 1.
Dans la cellule (1,1), je saisis une lettre A,B,C ou D.
Ensuite je remplis la ligne 2 avec des dates et la ligne 3 avec des quantités.

2ème étape : Détail de la macro :
Si la lettre B est saisie dans le tableau1, cellule (1,1), le système cherche dans la colonne 1 d'un autre tableau la lettre B (parmis A,B,C et D) et selectionne la ligne.
Une fois cette ligne repérée, les quantités se remplissent sous leur date correspondante.

J'ai joint une copie des tableau pour être un peu plus explicite.
Merci pour votre aide.
Hbb

 

[hbb]

Re : remplissage tableau en fonction des dates

Bonjour,

Y a-t-il quelqu'un qui pourrait m'orienter sur ce sujet ?
Merci d'avance,

Hbb

 

[jp14]

Re : remplissage tableau en fonction des dates

Bonsoir

Voici une macro qui devrait répondre au problème posée
Sub remplir()
Dim lettre As String
Dim i As Long
Dim j As Integer
Dim data1 As Variant
Dim nuligne As Long

lettre = Sheets("Tab").Cells(2, 1) ' contient la lettre

'recherche ligne qui contient la lettre
For i = 13 To Sheets("Tab").Range("a65536").End(xlUp).Row
If lettre = Sheets("Tab").Cells(i, 1) Then
nuligne = i' nuligne contient le numéro de la ligne
Exit For ' on sort de la boucle
End If

Next i
' lecture dates
For i = 2 To Sheets("Tab").Range("IV3").End(xlToLeft).Column ' recherche de la dernière colonne

data1 = Sheets("Tab").Cells(2, i)' data1 contient la date

' recherche dans tableau 2
For j = 2 To Sheets("Tab").Range("IV12").End(xlToLeft).Column ' pour toutes les colonnes

If data1 = Sheets("Tab").Cells(12, j) Then
Sheets("Tab").Cells(nuligne, j) = Sheets("Tab").Cells(nuligne, j) + Sheets("Tab").Cells(3, i)

End If
Next j
Next i
End Sub
Bonsoir
JP

 

[hbb]

Re : remplissage tableau en fonction des dates

JP14,

Merci pour ta réponse rapide, je fais le test et te tiens au courant.

A+

 

[hbb]

Re : remplissage tableau en fonction des dates

JP14,

C'est éxactement ce que je recherche à une nuance près.
J'aimerais ajouter la chose suivante :

Au remplissage du tableau2, s'il y a déjà une quantité sous une même date, on insère une colonne pour y renseigner la 2ème Qté.

J'ai essayé avec très peu de connaissance en VBA... et ça marche pas !!!

If IsNumeric(Cells(nuligne, j)) Then
Columns(j).Select
Selection.Insert Shift:=xlToRight
End If


Aurais-tu une idée ?
Merci.
Hbb

 

[hbb]

Re : remplissage tableau en fonction des dates

Bonjour,
Vraiment personne pour m'aider à finaliser ce problème ?
J'ai regardé sur le forum si des questions étaient similaires mais pas trouvé!

Merci.
Hbb

 

[hbb]

Re : remplissage tableau en fonction des dates

non vraiment personne ?
a+