macro de transfert/recherche avec mise en forme conditionelle

[ninanani]

Bonjour a tous.

Dans ma macro suivante, je souhaiterais, que la ligne en rouge fasse attention a la couleur du nom qu elle doit comparer.
C est a dire que si elle trouve le meme nom mais pas de la meme couleur, alors c n existe pas, et c est la fin de la macro.

Sub cherche()
For n = 2 To Sheets("Simple Invoice").Range("B65536").End(xlUp).Row
Set c = Sheets("paiement").Columns(1).Find(Sheets("Simple Invoice").Range("B" & 11).Value, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then Exit Sub

If Not c Is Nothing Then
Sheets("Simple Invoice").Range("G" & 5) = c.Offset(0, 1)
Sheets("Simple Invoice").Range("G" & 6) = c.Offset(0, 2)

Sheets("Simple Invoice").Range("A" & 19) = c.Offset(0, 3)
Sheets("Simple Invoice").Range("A" & 20) = c.Offset(0, 4)
Sheets("Simple Invoice").Range("A" & 21) = c.Offset(0, 5)
Sheets("Simple Invoice").Range("A" & 22) = c.Offset(0, 6)

.
.
.
.


Je ne sais meme pas si c est possible, j espere.
Merci de votre aide

 

[PascalXLD]

Re : macro de transfert/recherche avec mise en forme conditionelle

Re

Bon c'est assez compliqué

Tes 2 couleurs sont appliqués avec la même MFC ?

Le plus simple c'est de verifier la formule de la MFC et voir si elle s"applique à ta cellule c

 

[ninanani]

Re : macro de transfert/recherche avec mise en forme conditionelle

Re,
Voila un petit fichier exemple
http://cjoint.com/?cplad83Pxe

Pour que tu comprennes mieu, car c est difficile a expliquer.

Merci

 

[PascalXLD]

Re : macro de transfert/recherche avec mise en forme conditionelle

RE

en gros tu ne veux que le nom si il n'est pas en rouge donc si la colonne BL ou BK n'est pas à 0

 

[PascalXLD]

Re : macro de transfert/recherche avec mise en forme conditionelle

RE

Sinon tu n'as pas besoin de ta colonne BR pour la MFC

il suffit de mettre dans ta MFC

=ET(BK3=0;BL3=0) en formule et d'appliquer le format rouge

 

[ninanani]

Re : macro de transfert/recherche avec mise en forme conditionelle

Si la colone BL et BK ne sont pas a 0, je veux le nom en rouge, car cela veut dire que c est paye.
Et donc si dans ma feuille Simple Invoice, je tape le meme nom (en noir) et que j applique ma macro, il ne me ramene rien.

Mais si les colones BL et BK ne sont pas a 0, cela veut dire que ce n est pas paye et donc si je tape le meme nom( dams simple invoice), je veux que la macro s applique et que toutes les informations reviennent se positionner correctement dans ma feuille simple invoice.

Est ce que tu vois?


Sinon dans ma MFC, je ne vois pas ou je peux inserer une formule.

Merci de ton aide.

 

[PascalXLD]

Re : macro de transfert/recherche avec mise en forme conditionelle

Si la colone BL et BK ne sont pas a 0, je veux le nom en rouge, car cela veut dire que c est paye.

Mais si les colones BL et BK ne sont pas a 0, cela veut dire que ce n est pas paye

re

euh tu as du te mélanger les pinceaux car pour la même chose (la colone BL et BK ne sont pas a 0) tu dis le contraire😀 TU peux expliquer STP

Pour la formule en MFC sous 2003 je me rappelle plus bien
tu dois avoir le choix à un moment valeur ou formule

 

[ninanani]

Re : macro de transfert/recherche avec mise en forme conditionelle

Re,

Desole, si els collone sont a 0, alors le nomn est en rouge et c est paye

Si elles ne sont pas a 0 alors ce n est pas paye..

Pour le reste dans le post d avant j avais explique..

 

[PascalXLD]

Re : macro de transfert/recherche avec mise en forme conditionelle

re

donc essaies ainsi

Set c = Sheets("paiement").Columns(1).Find(Sheets("Simple Invoice").Range("B" & 11).Value, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then Exit Sub

If Not c Is Nothing Then
if range("BK" & c.row)=0 and range("BL" & c.row)=0 then exit sub

 

[ninanani]

Re : macro de transfert/recherche avec mise en forme conditionelle

Re,

Merci.
J ai donc rajouter ton code a ma macro, mais cela ne fonctionne toujours pas.
Meme si en BK et BL, j ai quelque chose de different de 0, il arrete la macro.

 

[PascalXLD]

Re : macro de transfert/recherche avec mise en forme conditionelle

Re

😕😕

Je vois pas pourquoi

 

[ninanani]

Re : macro de transfert/recherche avec mise en forme conditionelle

Re,

Comme cela elle marche, elle me ramene toute les info sans faire attention au 0 :

Sub cherche()
For n = 2 To Sheets("Simple Invoice").Range("B65536").End(xlUp).Row
Set c = Sheets("paiement").Columns(1).Find(Sheets("Simple Invoice").Range("B11").Value, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then Exit Sub

If Not c Is Nothing Then
Sheets("Simple Invoice").Range("G5") = c.Offset(0, 1)
Sheets("Simple Invoice").Range("G6") = c.Offset(0, 2)

Sheets("Simple Invoice").Range("A19") = c.Offset(0, 3)
Sheets("Simple Invoice").Range("A20") = c.Offset(0, 4)
Sheets("Simple Invoice").Range("A21") = c.Offset(0, 5)

Mias des que je la modifie :

Sub cherche()
For n = 2 To Sheets("Simple Invoice").Range("B65536").End(xlUp).Row
Set c = Sheets("paiement").Columns(1).Find(Sheets("Simple Invoice").Range("B11").Value, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then Exit Sub

If Not c Is Nothing Then
If Range("BK" & c.Row) = 0 And Range("BL" & c.Row) = 0 Then Exit Sub

Sheets("Simple Invoice").Range("G5") = c.Offset(0, 1)
Sheets("Simple Invoice").Range("G6") = c.Offset(0, 2)

Sheets("Simple Invoice").Range("A19") = c.Offset(0, 3)
Sheets("Simple Invoice").Range("A20") = c.Offset(0, 4)
Sheets("Simple Invoice").Range("A21") = c.Offset(0, 5)

Elle ne me renvoie plus rien du tout.

 

[PascalXLD]

Re : macro de transfert/recherche avec mise en forme conditionelle

re

attention
Peux-tu avoir plusieurs le même nom dans ta colonne A ?
Car lui va s'arreter sur la première ligne trouvee
donc si dans ce cas là c'est 0 et bien il sort et voilà

 

[ninanani]

Re : macro de transfert/recherche avec mise en forme conditionelle

Re,

Non je ne peux pas avoir plusieur fois le meme nom sur ma colone A.

Le probleme ne vient pas de la.

 

[PascalXLD]

Re : macro de transfert/recherche avec mise en forme conditionelle

re

bah là je vois pas

essaies de faire un point d'arrêt sur la ligne pour voir les données à ce moment
ou mets les valeur des colonnes BK BL de la ligne c.row dans des variables pour voir leur valeur

 

[ninanani]

Re : macro de transfert/recherche avec mise en forme conditionelle

Re,

C est bon j ai trouve.
J avais oublie de rajouter : sheets"(paiement") avant le range.

Maintenant ca fonctionne, trop cool.
Merci