Bonjour a tous,
je vous explique mon problème:
J'ai un classeur avec 2 onglet, je dois analyse le 1er, si la ligne (appelons la "ligne i")est d'une couleur particulière (la même que celle de la ligne 7 je crois) alors je dois aller dans le 2eme onglet.
Dans le 2eme onglet je dois parcourir la 1ere colonne pour voir si il y a correspondance de texte, si oui, je dois copier (sur cette ligne que l'on appellera "ligne Y") une certaine plage de cellule et la copier dans "la ligne i", le problème étant que les dites-cellules du ère onglet sont fusionnées (et doivent le rester).
Vu que ce n'est pas possible d’après Excel j'essaye de contourner le problème en parcourant les 52 cellules de la "ligne Y" et de copier au fur et a mesure la couleur de la "ligne Y" vers la "ligne i", vindiou c'est compliqué a comprendre...
J'ai donc ce code VBA mais il ne marche a priori pas et il y a un problème sur l'affectation de la couleur je pense.
Sub Part22()
Dim q As Integer
Dim m As Integer
Dim p As Integer
Dim ColorCell As Integer
Set Wb1 = ThisWorkbook
Worksheets(1).Activate
For m = 17 To 300
If Worksheets(1).Cells(m, 2).Interior.ColorIndex = Worksheets(1).Cells(7, 4).Interior.ColorIndex Then 'Comparaison avec la couleur de la ligne 7
For q = 1 To 100
If Wb1.Worksheets(1).Cells(m, 4).Value = Wb1.Worksheets(2).Cells(q, 1).Value Then
'Verification que le texte corresponde
For p = 1 To 54
ColorCell = Worksheets(2).Cells(q, p).Interior.IndexColor
Worksheets(1).Cells(m, 8 + 7 * (q - 1)).Interior.IndexColor = ColorCell
'Couleur mise en mémoire puis appliquée a la cellule, le debeugeur intervient
Next p
End If
Next q
End If
Next m
End Sub
J'ai du faire une erreur de syntaxe qui m’échappe a moins que ce que j'essaye de faire ne soit simplement pas possible...
Toute aide sera la bienvenue je vous remercie d'avance!
je vous explique mon problème:
J'ai un classeur avec 2 onglet, je dois analyse le 1er, si la ligne (appelons la "ligne i")est d'une couleur particulière (la même que celle de la ligne 7 je crois) alors je dois aller dans le 2eme onglet.
Dans le 2eme onglet je dois parcourir la 1ere colonne pour voir si il y a correspondance de texte, si oui, je dois copier (sur cette ligne que l'on appellera "ligne Y") une certaine plage de cellule et la copier dans "la ligne i", le problème étant que les dites-cellules du ère onglet sont fusionnées (et doivent le rester).
Vu que ce n'est pas possible d’après Excel j'essaye de contourner le problème en parcourant les 52 cellules de la "ligne Y" et de copier au fur et a mesure la couleur de la "ligne Y" vers la "ligne i", vindiou c'est compliqué a comprendre...
J'ai donc ce code VBA mais il ne marche a priori pas et il y a un problème sur l'affectation de la couleur je pense.
Sub Part22()
Dim q As Integer
Dim m As Integer
Dim p As Integer
Dim ColorCell As Integer
Set Wb1 = ThisWorkbook
Worksheets(1).Activate
For m = 17 To 300
If Worksheets(1).Cells(m, 2).Interior.ColorIndex = Worksheets(1).Cells(7, 4).Interior.ColorIndex Then 'Comparaison avec la couleur de la ligne 7
For q = 1 To 100
If Wb1.Worksheets(1).Cells(m, 4).Value = Wb1.Worksheets(2).Cells(q, 1).Value Then
'Verification que le texte corresponde
For p = 1 To 54
ColorCell = Worksheets(2).Cells(q, p).Interior.IndexColor
Worksheets(1).Cells(m, 8 + 7 * (q - 1)).Interior.IndexColor = ColorCell
'Couleur mise en mémoire puis appliquée a la cellule, le debeugeur intervient
Next p
End If
Next q
End If
Next m
End Sub
J'ai du faire une erreur de syntaxe qui m’échappe a moins que ce que j'essaye de faire ne soit simplement pas possible...
Toute aide sera la bienvenue je vous remercie d'avance!