Macro pour garder les mises en forme d'origine avec des formules
Fermé
cooljuly
Messages postés
40
Date d'inscription
mercredi 23 mars 2016
Statut
Membre
Dernière intervention
6 septembre 2016
-
25 juil. 2016 à 15:38
cooljuly Messages postés 40 Date d'inscription mercredi 23 mars 2016 Statut Membre Dernière intervention 6 septembre 2016 - 27 juil. 2016 à 16:57
cooljuly Messages postés 40 Date d'inscription mercredi 23 mars 2016 Statut Membre Dernière intervention 6 septembre 2016 - 27 juil. 2016 à 16:57
A voir également:
- Macro pour garder les mises en forme d'origine avec des formules
- Mise en forme conditionnelle excel - Guide
- Les formules excel - Guide
- Nous n'avons pas pu terminer les mises à jour - Forum Windows 10
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Dans la table des matières de ce document, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
1 réponse
cooljuly
Messages postés
40
Date d'inscription
mercredi 23 mars 2016
Statut
Membre
Dernière intervention
6 septembre 2016
Modifié par cooljuly le 27/07/2016 à 16:58
Modifié par cooljuly le 27/07/2016 à 16:58
j'ai modifié le code en essayant la méthode Find, par contre je suis bloquée pour lui dire de copier, la donnée qu'il trouve en colonne H. Mon code donne cela :
pPrivate Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim poste As Range
poste = Range("B4")
With fichP.Range("A34")
Set c = .Worksheets("Commentaires").Columns("C:C").Find(What:=poste, LookAt:=xlWhole)
If Not c Is Nothing Then
'mettre que l'on cherche à copier la cellule H qui correspond à la ligne qu'il a trouvé
'copier coller mise en forme source
End Sub
pPrivate Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim poste As Range
poste = Range("B4")
With fichP.Range("A34")
Set c = .Worksheets("Commentaires").Columns("C:C").Find(What:=poste, LookAt:=xlWhole)
If Not c Is Nothing Then
'mettre que l'on cherche à copier la cellule H qui correspond à la ligne qu'il a trouvé
'copier coller mise en forme source
End Sub