Bonjour le forum,
Je suis nouveau, il est 1h12 du matin et je decide de m'inscrire pour vous solliciter sur une macro qui me pose probleme.
Je commence l'apprentissage, et pour le moment je ne crée pas de macro, j'adapte celles des autres, et cela va durer j ai l'impression. Sauf que cette fois ci, probleme je n'arrive plus a avancer.
J'ai pris et adapté une maccro qui copie les cellule d'une matrice dans un onglet vers une matrice d'un autre onglet.
Elle fonctionne sur la 1ere ligne, mais pas sur les suivantes...
La voici:
Sub Test()
Dim cell As Range, c As Range
For Each cell In Range("D10" & Range("D1000").End(xlUp).Row)
If cell.Value = "" Then
cell.Offset(0, 1) = ""
Else
With Worksheets("Feuil4").Range("B5:B" & Range("B2000").End(xlUp).Row)
Set c = .Find(cell.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
cell.Offset(0, 2) = c.Offset(0, 5)
cell.Offset(0, 3) = c.Offset(0, 6)
cell.Offset(0, 4) = c.Offset(0, 7)
cell.Offset(0, 6) = c.Offset(0, 9)
cell.Offset(0, 8) = c.Offset(0, 36)
cell.Offset(0, 9) = c.Offset(0, 37)
cell.Offset(0, 10) = c.Offset(0, 38)
cell.Offset(0, 12) = c.Offset(0, 40)
End If
End With
End If
Next cell
End Sub
Ci joint le fichier sur lequel je travail, cf les 2 derniers onglets.
Savez vous pourquoi elle ne s'enchaine pas sur les autres ligne apres lig 10 alors qu'il y a bien le "Next cell" a la fin?
Merci d'avance pour votre aide future et celle déjà apportée,
Bonne nuit
Cdlt
YANN
Je suis nouveau, il est 1h12 du matin et je decide de m'inscrire pour vous solliciter sur une macro qui me pose probleme.
Je commence l'apprentissage, et pour le moment je ne crée pas de macro, j'adapte celles des autres, et cela va durer j ai l'impression. Sauf que cette fois ci, probleme je n'arrive plus a avancer.
J'ai pris et adapté une maccro qui copie les cellule d'une matrice dans un onglet vers une matrice d'un autre onglet.
Elle fonctionne sur la 1ere ligne, mais pas sur les suivantes...
La voici:
Sub Test()
Dim cell As Range, c As Range
For Each cell In Range("D10" & Range("D1000").End(xlUp).Row)
If cell.Value = "" Then
cell.Offset(0, 1) = ""
Else
With Worksheets("Feuil4").Range("B5:B" & Range("B2000").End(xlUp).Row)
Set c = .Find(cell.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
cell.Offset(0, 2) = c.Offset(0, 5)
cell.Offset(0, 3) = c.Offset(0, 6)
cell.Offset(0, 4) = c.Offset(0, 7)
cell.Offset(0, 6) = c.Offset(0, 9)
cell.Offset(0, 8) = c.Offset(0, 36)
cell.Offset(0, 9) = c.Offset(0, 37)
cell.Offset(0, 10) = c.Offset(0, 38)
cell.Offset(0, 12) = c.Offset(0, 40)
End If
End With
End If
Next cell
End Sub
Ci joint le fichier sur lequel je travail, cf les 2 derniers onglets.
Savez vous pourquoi elle ne s'enchaine pas sur les autres ligne apres lig 10 alors qu'il y a bien le "Next cell" a la fin?
Merci d'avance pour votre aide future et celle déjà apportée,
Bonne nuit
Cdlt
YANN