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

Mise en forme conditionnel

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Arverne
  • 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
A

Arverne

Guest
Bonjour forum, Bonjour à tous

Je débute en VBA, j'ai voulu réaliser rapidement un petit programme pour m'aider en anglais.
Principe:
Sur la feuille 2 de mon classeur j'ai une liste de mot en anglais sur la colonne A avec leur traduction dans la colonne B.
La Macro indique un mot sur la feuille 1 colonne A et il faut saisir sa traduction en colonne B.
Bon,c'est sans prétention mais cela ne fonctionne pas.
En effet, j'ai pensé utiliser la mise en forme conditionnel, mais celà fonctionne pas si on utilise une autre feuille.

Savez vous comment je puis faire ?

Toute suggestion ou amélioration est la bienvenue.

Merci d'avance !


Code: 
Sub Macro2()
Dim NbreDeMot As Integer
Dim Ligne As Integer
Dim Colonne As Integer
Dim DerniereLigne As Integer
Dim MotATraduire As String
Dim Col As String

    'Nombre de mot à traduire
    NbreDeMot = Sheets(2).UsedRange.Cells(Sheets(2).UsedRange.Count).Row
    Randomize
    'Selectionne le mot a traduire
    Ligne = Int((NbreDeMot - 1 + 1) * Rnd + 1)
    'Selectionne le sens a traduire
    Colonne = Int((2 - 1 + 1) * Rnd + 1)
    
    MotATraduire = Sheets(2).Cells(Ligne, Colonne)
    
    'Récupère la derniere ligne de la feuille d exercice
    DerniereLigne = Sheets(1).UsedRange.Cells(Sheets(1).UsedRange.Count).Row + 1
    
    'Affiche le mot a traduire
    Sheets(1).Cells(DerniereLigne, 1) = MotChoisi
    
    If (Colonne = 1) Then
    Col = 'B'
    Else
    Col = 'A'
    End If
    
    'Mise en forme conditionnel : Mettre en Vert si le mot saisie est bien traduit
    Sheets(1).Cells(DerniereLigne, 2).FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:='=Feuil2!$' & Col & '$' & Ligne
    'Sinon il est en rouge
    Sheets(1).Cells(DerniereLigne, 2).FormatConditions(1).Font.ColorIndex = 10
    
End Sub
🙂
 
Trier par date Trier par votes
Bonsoir Arverne,

Peut-être pourrais-tu essayer un code comme celui-ci :

Code: 
Option Explicit

Sub Macro2()
'
Dim NbreDeMot As Integer
Dim Ligne As Integer
Dim Colonne As Integer
Dim DerniereLigne As Integer
Dim MotATraduire As String
Dim Col As String
'
  Sheets(1).Select
  'Nombre de mot à traduire
  NbreDeMot = Sheets(2).UsedRange.Rows.Count
  Randomize
  'Selectionne le mot a traduire
  Ligne = Int(NbreDeMot * Rnd + 1)
  'Selectionne le sens a traduire
  Colonne = Int(2 * Rnd + 1)
  
  MotATraduire = Sheets(2).Cells(Ligne, Colonne)
  
  'Récupère la derniere ligne de la feuille d exercice
  DerniereLigne = Cells(65536, 1).End(xlUp).Row + 1
  
  'Affiche le mot a traduire
  Cells(DerniereLigne, 1) = MotATraduire
  
  If (Colonne = 1) Then
    Col = 'B'
  Else
    Col = 'A'
  End If
  
  'Mise en forme conditionnelle : Mettre en Vert si le mot saisi est bien traduit
  With Sheets(1).Cells(DerniereLigne, 2)
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:=Sheets(2).Range(Col & Ligne).Text
    .FormatConditions(1).Font.ColorIndex = 10
    'Sinon il est en rouge
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:=Sheets(2).Range(Col & Ligne).Text
    .FormatConditions(2).Font.ColorIndex = 3
  End With
End Sub

Il y a matière à faire plus concis mais moins facile à lire 😉

A+
 
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

D
  • Question Question
XL 2021 Formule Excel dans VBA
Réponses
3
Affichages
228
dl87671
D
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
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
29
Affichages
2 K
TooFatBoy
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
265
LaurentVasseur
L
Y
  • Résolu(e)
Microsoft 365 Countifs et dates
2
Réponses
23
Affichages
771
youguybass
Y
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
L
  • Question Question
XL 2021 Mise en forme conditionnelle à partir d'autre colonne
Réponses
7
Affichages
344
CHRIS1945
C
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
872
piga25
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
618
anthoYS
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
826
nat54
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
127
Eric 888
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
238
treza88
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
571
Abi23
A
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
359
Piment
P
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
P
  • Résolu(e)
XL 2016 Mise en forme conditionnel Doublon ligne par ligne
Réponses
3
Affichages
178
sylvanu
E
  • Question Question
XL 2016 Mise en forme conditionnelle conservée après actualisation d'un TCD
Réponses
1
Affichages
324
chris
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
562
mikeduff
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…