Bonjour à toutes et tous,
Tout d'abord merci de prendre le temps de me lire.
J'ai régulièrement besoin (pour milieu professionnel) de mettre à jour une base de donnée.
Cette base de donnée est égal à => Donnée d'un fichier si une condition est respecté + donnée d'un autre fichier si la condition est respecté.
Sachant que cette base de donnée dois être mis à jour très régulièrement, j'aimerai mettre en place une automatisation de celle-ci (d'où mon besoin de VBA).
Je suis arrivé grâce à une fonction si à savoir si "oui" le critère est respecté ou si "non" le critère n'est pas respecté.
Maintenant, si "oui", j'aimerai copié la ligne (cellule par cellule car les deux bases de donnée n'ont pas le même format).
Afin que vous compreniez mieux mes difficultés, ci-joint un fichier Excel + une esquisse de code que j'ai réalisé (et où je bloque)
Merci d'avance de votre aide, je recherche ici des explications et de l'aide.
'L'objectif de cette macro est en fonction du critère stocké en E, je copie la ligne.
Beaucoup d'amour à tous.
LeLebl
Tout d'abord merci de prendre le temps de me lire.
J'ai régulièrement besoin (pour milieu professionnel) de mettre à jour une base de donnée.
Cette base de donnée est égal à => Donnée d'un fichier si une condition est respecté + donnée d'un autre fichier si la condition est respecté.
Sachant que cette base de donnée dois être mis à jour très régulièrement, j'aimerai mettre en place une automatisation de celle-ci (d'où mon besoin de VBA).
Je suis arrivé grâce à une fonction si à savoir si "oui" le critère est respecté ou si "non" le critère n'est pas respecté.
Maintenant, si "oui", j'aimerai copié la ligne (cellule par cellule car les deux bases de donnée n'ont pas le même format).
Afin que vous compreniez mieux mes difficultés, ci-joint un fichier Excel + une esquisse de code que j'ai réalisé (et où je bloque)
Merci d'avance de votre aide, je recherche ici des explications et de l'aide.
'L'objectif de cette macro est en fonction du critère stocké en E, je copie la ligne.
VB:
Sub Copier()
' J'ai créer la variable i afin de pouvoir passer toutes les lignes en revue une par une
Dim i As Integer
Dim j As Integer
'J'ai créer la variable JanvierFévrier car je sais que je dois coller la donnée de février après celle de janvier dans le tableau janvierfévrier
With Worksheets("JanvierFévrier")
LastLigJanvierFévrier = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
'Je crée la variable dernière fin de ligne de Janvier afin que je test toutes les lignes complètes de Janvier
With Worksheets("Janvier")
LastLigCNCTest = .Cells(.Rows.Count, "A").End(xlUp).Row
'Me permet de passer en revu de la première ligne à la dernière ligne
For i = 1 To LastLigCNCTest
'Si mon critère est respecté alors
If .Range("K" & i) = "Oui" Then
'La ligne i est = à la dernière ligne non rempli de JanvierFévrier
.Range("M" & i) = .Range("B" & LastLigJanvierFévrier)
'La Ligne i est = à la dernière ligne non rempli de JanvierFévrier
.Range("N" & i) = .Range("A" & LastLigJanvierFévrier)
End If
Next
End With
End Sub
Beaucoup d'amour à tous.
LeLebl