Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro de transfert/recherche avec mise en forme conditionelle

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ninanani

XLDnaute Occasionnel
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
 
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
 
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
 
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.
 
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
 
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..
 
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
 
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.
 
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 :

Code:
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 :

Code:
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.
 
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à
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
472
Réponses
2
Affichages
160
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…