Bandoulier
XLDnaute Junior
Bonjour,
Mon problème est simple, mais je ne m'en sors pas !
Dans un classeur Excel j'ai 2 feuilles : Une feuille "V6" où il y a un tas de choses et une feuille "Récup" vide et dans laquelle je voudrais récupérer le contenu des cellules de la feuille "V6" qui sont en rouge, en gras et centré.
J'ai fait le module suivent :
Sub Recup_Sosa()
Dim Cellule As Range
Application.ScreenUpdating = False
For Each Cellule In Range("F34:VF201")
If Cellule.HorizontalAlignment = xlCenter And Cellule.Font.Bold = True And Cellule.Font.Color = -16776961 Then
NumSosa = Cellule.Value
Sheets("Récup").Select
ActiveCell.Value = NumSosa
ActiveCell.Offset(1, 0).Select
End If
Sheets("V6").Select
Next Cellule
Application.ScreenUpdating = True
End Sub
Mais quand je lance la macro, rien ne se passe !
Pourriez-vous me dire pourquoi ?
Merci d'avance
Mon problème est simple, mais je ne m'en sors pas !
Dans un classeur Excel j'ai 2 feuilles : Une feuille "V6" où il y a un tas de choses et une feuille "Récup" vide et dans laquelle je voudrais récupérer le contenu des cellules de la feuille "V6" qui sont en rouge, en gras et centré.
J'ai fait le module suivent :
Sub Recup_Sosa()
Dim Cellule As Range
Application.ScreenUpdating = False
For Each Cellule In Range("F34:VF201")
If Cellule.HorizontalAlignment = xlCenter And Cellule.Font.Bold = True And Cellule.Font.Color = -16776961 Then
NumSosa = Cellule.Value
Sheets("Récup").Select
ActiveCell.Value = NumSosa
ActiveCell.Offset(1, 0).Select
End If
Sheets("V6").Select
Next Cellule
Application.ScreenUpdating = True
End Sub
Mais quand je lance la macro, rien ne se passe !
Pourriez-vous me dire pourquoi ?
Merci d'avance