Bonjour a tous,
je suis egalement debutant en VBA, voici ce que j'aimerais faire
dans la feuille 1 de mon classeur il y a six colonnes de quinze lignes.
je voudrais que VBA me trouve automatiquement toutes les cellules de la colonne 6 dont la valeur commence par le texte "Code", puis qu'il colore en rouge la ligne entière dans laquelle se trouve la cellule.
Ensuite j'aimerais qu'il me copie ces lignes et les colle sur la feuille 2 du meme classeur
J'ai le debut du code :
Sub Colorelignessiproblemesindicateurs()
Range("F1:F15").Select
For Each Cell In Selection
If Left$(Cell.Value, 4) = "Code" Then
Cell.EntireRow.Interior.Color = vbRed
Else
Cell.EntireRow.Interior.Color = vbWhite
End If
Next Cell
End Sub
Mais j'ai un pb ensuite
Je pense que si je veux inserer la deuxieme partie de ma requete à savoir copier coller) dans une seule procedure mon code est mauvais
merci de votre aide
je suis egalement debutant en VBA, voici ce que j'aimerais faire
dans la feuille 1 de mon classeur il y a six colonnes de quinze lignes.
je voudrais que VBA me trouve automatiquement toutes les cellules de la colonne 6 dont la valeur commence par le texte "Code", puis qu'il colore en rouge la ligne entière dans laquelle se trouve la cellule.
Ensuite j'aimerais qu'il me copie ces lignes et les colle sur la feuille 2 du meme classeur
J'ai le debut du code :
Sub Colorelignessiproblemesindicateurs()
Range("F1:F15").Select
For Each Cell In Selection
If Left$(Cell.Value, 4) = "Code" Then
Cell.EntireRow.Interior.Color = vbRed
Else
Cell.EntireRow.Interior.Color = vbWhite
End If
Next Cell
End Sub
Mais j'ai un pb ensuite
Je pense que si je veux inserer la deuxieme partie de ma requete à savoir copier coller) dans une seule procedure mon code est mauvais
merci de votre aide