5345 résultats trouvés

re,

voici la nouvelle version,

Bonjour,

voici un exemple,
en supposant que Fichier2 soit aussi ouvert

wartex a écrit : ↑

12 décembre 2019, 09:49

C'est bon j'ai trouvé, désolé du dérangement !
Bonne journée

Re,
heureuse que tu es trouvé la solution car je ne suis pas ferré en graph,
ce serait vraiment top de partager la solution,
et de marquer le fil comme résolu, merci à toi

Steelson a écrit : ↑

8 décembre 2019, 16:21

ps pour Isabelle : je n'avais jamais pensé en effet me servir d'un nom pour stocker une valeur ! idée géniale.

ps pour Michel :
un autre avantage à utiliser un nom, il est possible de le masquer
et supprimer la ligne de code

Bonjour wartex,
stl h2so4, njhub ,

voici une autre possibilité avec Sommeprod,

Bonjour, Merci cela fonctionne,... Est ce que c'est possible: au lieu de mettre en rouge les mots trouvés c'est qu'ils soient surligner en fluo jaune par exemple car il se peut que dans mes textes originaux j'ai déjà des mots en rouges. MErci d'avance re, je ne crois pas que ce soit possible, en to...

re,

essai d'ouvrir le fichier en tenant la touches shift enfoncé.

re, voici la correction, Sub test() For i = 2 To Worksheets.Count With Sheets(i) x = .Previous.Name If .Range("B12") = Sheets(x).Range("B12").Value Then .Range("D47") = Sheets(x).Range("D47") + .Range("D43") Else .Range("D47") = .Range("D43") End If End With Next End Sub

Bonjour, voici un exemple, Sub colore() Dim keywords As String, firstAddress As String, c As Range, i As Long For i = 2 To Sheets("Liste").Cells(Rows.Count, 1).End(xlUp).Row keywords = Sheets("Liste").Cells(i, 1) 'mot rechercher With ActiveSheet.Range("Q:Q") 'plage de recherche Set c = .Find(keyword...

Bonjour,

voici un exemple,