zeb a dit :
Salut,
Je n'ai rien compris. Relis-toi et recommence ton explication.
Bonjour ,
voici l'explication.
Je cherche une macro capable de réaliser dans toutes les feuilles non masquées d'un classeur ,à partir de la feuille nommée :"00001" les opérations suivantes:
1)Rechercher les cellules qui sont au format conditionnel suivant:"texte rouge"
2)Sélectionner les lignes contenant ces cellules
3)Copier/coller (collage spécial - valeur)
4)Rechercher les cellules qui sont au format conditionnel suivant:"texte rouge" et les mettre à la couleur "automatique".
NB:Chaque feuille comporte un tableau dont les lignes (leurs cellules) contiennent des formules.
La 1ere ligne est renseignée quand un "formulaire"(facture,recu de versement...) est renseigné.
Pour que la 2eme ligne soit renseignée,il faut que les formules contenues dans les cellules de la 1ere ligne disparaissent en faissant copier/coller (collage spécial -valeur ).
Quand une ligne est renseignée,la 1ere cellule ou bien la 7eme cellule de la ligne est au format conditionnel suivant:"texte rouge".
Voici ce que j'ai pu trouver:
Range("A18:I18").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Macro permettant d'appliquer"collage spécial-valeur" aux cellules sélectionnées:
Sub Bouton1_Clic()
'
' Bouton1_Clic Macro
' Sélectionner toutes les cellules dont les formules ont été remplacées par leur résultat
'
' Touche de raccourci du clavier: Ctrl+a
'Range("").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Merci pour votre aide