Discussion :

[Potzo]

Bonjour tout le monde,

J'ai une macro qui transfere des donnees d'une feuille a une autre .
Sur la feuille1 il y a des references (certaines sont identiques) auquelles correspondent une valeur. Pour toutes les references identique (EX :12345) il y a une ligne supplementaire (avec la meme reference, donc 12345) dans laquelle je calcule la somme des valeurs correspondant (ici la somme des veleurs affectees a la reference 12345). Cette ligne se distingue des autres par sa couleur.

J'aimerais donc transferer le resultat de la ligne en couleur sur une autre feuille (feuille2) qui elle contient deja les noms des references de couleur.
Il faut donc que je fasse une recherche par le nom et par la couleur pour ne renvoyer qu un seul resultat a la fois.

Voici le code qui fonctionne avec la recherche par nom, mais je ne sais pas bien ou inserer le critere de couleur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Transfertresultat()
 
Dim Datenbasis As Worksheet
Dim Tabelle1 As Worksheet
Dim c As Range
Dim D As Range
 
Set Datenbasis = Worksheets("Datenbasis IST-Stunden")
Set Tabelle1 = Worksheets("Tabelle1")
For Each c In Tabelle1.Range("C3:C" & Tabelle1.Cells(Rows.Count, 3).End(xlUp).Row)
    With Datenbasis.Range("F2:F" & Datenbasis.Cells(Rows.Count, 6).End(xlUp).Row)
      Set D = .Find(c.Value, LookIn:=xlValues, lookat:=xlWhole)
      If Not D Is Nothing Then
 
        Tabelle1.Range(c.Address).Offset(0, 11) = Datenbasis.Range(D.Address).Offset(0, 2)
      End If
    End With
Next
Set Datenbasis = Nothing
Set Tabelle1 = Nothing
 
MsgBox "Makro 2 wurde erfolgreich ausgeführt"
End Sub

[Potzo]

je pense qu'il faut que j'insere une nouvelle condition du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set D = .Find(c.Value, LookIn:=xlValues, lookat:=xlWhole)

           If D.Interior.Color = 10092543 then

      If Not D Is Nothing Then

Mais en faisant comme ca cela ne marche pas.
Je peux egalement uploader un fichier sio ca peut aider a la comprehension de mon probleme.

[DeaD78]

Bonjour,

Voici l'ensemble des paramètres existants de la fonction .Find :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Find(What:="TrucMucheRecherché", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

De ton côté tu fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set D = .Find(c.Value, LookIn:=xlValues, lookat:=xlWhole)

Si je comprends bien, tu veux .Find/trouver non seulement la valeur de c (c.Value) mais aussi sa couleur ?

On dirait que le SearchFormat correspond à ce que tu souhaites, qu'en dis-tu ?

Il ne te resterait alors qu'à faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set D = .Find(c.Value, LookIn:=xlValues, lookat:=xlWhole,,,,SearchFormat:=True)

ou quelque chose du genre (je ne sais plus si j'ai bien mis les virgules).

Ainsi ton .Find cherchera la valeur de ton c mais aussi son format et donc sa couleur au passage ()encore faut-il que cela soit formaté pareil : Bold/Italic/Police.

Sinon, si tu veux faire plus simple mais moins "propre", tu mets une condition dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Not D Is Nothing Then 
 
End If

Une simple If D.Font.Color = Then si tu parles de la couleur dans laquelle est écrit ton truc. Sinon, tourne toi du côté de la couleur de la cellule.

Bonne chance pour la suite.

[Potzo]

en fait le resultat qui m interesse est sur la ligne dont la cellule est de la couleur que je recherche.
EDIT :

J'ai essaye avec SearchFormat et ca ne change pas mon probleme.
Quant a rajouter un If dans la boucle avec le Set, j'ai essaye mais ca ne fait plus fonctionner la macro.

Actuellement la macro tourne, mais des qu'elle trouve une correspondance elle prend cette valeur la.

Je joins le fichier pour que ce soit plus clair.