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

Macro sous 2 conditions

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fabio
  • Date de début Date de début

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 !

S'inscrire
F

fabio

Guest
BONJOUR

Comment adapter le code ci dessous :
explication
J'aimerais que lorsque figure "AM" en colonne E et "OUI" en colonne I, la valeur de la colonne J se reporte dans la colonne K et dans la colonne L (Valeur de la colonne K*1%)

quand les 2 conditions sont réunies la macro s'active automatiquement


For i = 2 To 10

If Cells(i, 5) <> "AM" And Cells(1, 9) <> "oui" Then
Cells(i, 11).Value = Cells(1, 10)
Cells(i, 12).Value = Cells(1, 10)
End If
Next

End Sub

merci pour votre aide
fabio
 

Pièces jointes

Trier par date Trier par votes
Re : Macro sous 2 conditions

Bonjour,

pourquoi as tu besoin d'une macro? alors qu'une simple formule te donne le résultat
en K2 =SI(ET(E2="AM";I2="OUI");J2;"valeur")
et en L2 =SI(K2="valeur";"valeur";K2*0.01)
puis tu tires les formules vers le bas
j'ai mis "valeur" pour reproduire ton tableau..
mais j'imagine que ca va pas etre ca..
d'ou la question
si la condition (AM en colonne E) ET(OUI en colonne I) n'est pas remplie.. tu mets quoi en colonne K et L?
 
Vote positif 0 Vote négatif
Re : Macro sous 2 conditions

Je n'utilise pas de formule car c'est une projection qui sera faite par plusieurs personnes qui décideront si ils font ou pas cette projection
et il ne faut surtout pas de formule dans les cellules

merci

fabio
 
Vote positif 0 Vote négatif
Re : Macro sous 2 conditions

Bonjour

ok,
donc il te suffit de mettre ce code directement dans la feuille concernée (pas dans un module)
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 10
     If ((Cells(i, 5) = "AM") And (Cells(i, 9) = "OUI")) Then
        Cells(i, 11).Value = Cells(i, 10)
        Cells(i, 12).Value = Cells(i, 10)
    End If
 Next
End Sub
 
Vote positif 0 Vote négatif
Re : Macro sous 2 conditions

Bonjour à tous, bonjour fabio, bonjour vgendron


La même que vgendron (avec une ligne de moins)
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 10
If ((Cells(i, 5) = "AM") And (Cells(i, 9) = "OUI")) Then
Cells(i, 11).Resize(, 2).Value = Cells(i, 10)
End If
Next
End Sub
et ou une variante d'écriture
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 10
If ((Cells(i, 5) = "AM") And (Cells(i, 9) = "OUI")) Then
Range(Cells(i, 11), Cells(i, 12)).Value = Cells(i, 10)
End If
Next
End Sub
 
Vote positif 0 Vote négatif
Re : Macro sous 2 conditions

Hello Staple

et oups. je viens de me rendre compte que j'ai repris le code d'origine tel quel
Code: 
For i = 2 To 10

If Cells(i, 5) <> "AM" And Cells(1, 9) <> "oui" Then
Cells(i, 11).Value = Cells(1, 10)
Cells(i, 12).Value = Cells(1, 10)
End If
Next

End Sub
et que
1) j'ai changé les 1 des Cells (1,9) Cells(1,10) et Cells(1,11) par un i
2) j'ai changé les <> de ta condition par des =
3) par contre, j'ai oublié de modifier le code pour que la cellule L soit égale à 1% de la cellule K (du coup. staple. le resize. ne marche plus ;-) )
ce qui donne ca au final
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 10
     If ((Cells(i, 5) = "AM") And (Cells(i, 9) = "OUI")) Then
        Cells(i, 11) = Cells(i, 10)
        Cells(i, 12) = Cells(i, 10) / 100
    End If
 Next
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
839
TooFatBoy
  • Question Question
Autres résultats differents entre formule et macro (excel 2007)
2
Réponses
18
Affichages
376
dysorthographie
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
750
job75
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
204
Marie L
M
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
692
kiki29
P
  • Question Question
Microsoft 365 VBA et Segments TCD
Réponses
2
Affichages
496
patricko-13
P
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
411
nabilexcel2007
N
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
657
lynyrd
  • Question Question
XL 2021 Réduction temps d'exécution boucle macro
Réponses
11
Affichages
527
TooFatBoy
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
181
treza88
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
481
mikeduff
M
J
  • Question Question
Microsoft 365 Userform comboboxes indexés
Réponses
8
Affichages
357
jp26200
J
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
779
KRUG WOO
K
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
425
sylvanu
  • Résolu(e)
XL 2021 And/Or dans If
Réponses
3
Affichages
435
thunder23
  • Question Question
XL 2021 Ouvrir une application et vérifier si elle est déjà ouverte
Réponses
4
Affichages
298
Jojo973
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
701
nat54
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…