remplissage tableau en fonction des dates

  • Initiateur de la discussion Initiateur de la discussion hbb
  • 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 !

hbb

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

Pièces jointes

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

Retour