Bonjour,
Je suis novice sur VBA, j'aimerais remplir une cellule automatiquement avec les données d'une autre cellule.
mon objectifs est de rechercher premierement mon groupe de matiere premiere ici DZOL5 puis rechercher la matieres première ASS_DA prendre ces données le mettre dans l'autre groupe de resultat bb5 et prendre les donneés de ASS_DA le mettre dans DA-plan.
voila mon code qui fait les deux premieres recherche et qui copie les données de ASS_DA dans DA-Plan sans faire les deux autres recherche.
Sub search()
Dim cpt1, cpt2, lastLine As Integer
cpt1 = 11
cpt2 = 6
Sheets("Sheet1").Select
While (Cells(cpt1, cpt2) <> "")
If (Cells(cpt1, cpt2) = "DZOL5") Then
cpt1 = cpt1 + 1
If (Cells(cpt1, cpt2) = "ASS_DA") Then
lastLine = Sheets("Sheet1").Range("A65536").End(xlUp).Row
Range(Cells(14, cpt2), Cells(lastLine, cpt2)).Select
Selection.Copy
Range("AO14").Select
ActiveSheet.Paste
Exit Sub
End If
cpt1 = cpt1 - 1
End If
cpt2 = cpt2 + 1
Wend
End Sub
Pouvez vous m'aider a completer les deux autres recherche afin de remplir au bon endroit svp.
voir le fichier book1 pour mieux comprendre
Je suis novice sur VBA, j'aimerais remplir une cellule automatiquement avec les données d'une autre cellule.
mon objectifs est de rechercher premierement mon groupe de matiere premiere ici DZOL5 puis rechercher la matieres première ASS_DA prendre ces données le mettre dans l'autre groupe de resultat bb5 et prendre les donneés de ASS_DA le mettre dans DA-plan.
voila mon code qui fait les deux premieres recherche et qui copie les données de ASS_DA dans DA-Plan sans faire les deux autres recherche.
Sub search()
Dim cpt1, cpt2, lastLine As Integer
cpt1 = 11
cpt2 = 6
Sheets("Sheet1").Select
While (Cells(cpt1, cpt2) <> "")
If (Cells(cpt1, cpt2) = "DZOL5") Then
cpt1 = cpt1 + 1
If (Cells(cpt1, cpt2) = "ASS_DA") Then
lastLine = Sheets("Sheet1").Range("A65536").End(xlUp).Row
Range(Cells(14, cpt2), Cells(lastLine, cpt2)).Select
Selection.Copy
Range("AO14").Select
ActiveSheet.Paste
Exit Sub
End If
cpt1 = cpt1 - 1
End If
cpt2 = cpt2 + 1
Wend
End Sub
Pouvez vous m'aider a completer les deux autres recherche afin de remplir au bon endroit svp.
voir le fichier book1 pour mieux comprendre