Comparer une variable string avec les valeurs d'une cellule

Fermé

Boxcop1999 - Modifié le 21 mai 2019 à 14:46
f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 - 21 mai 2019 à 17:53

Bonjour,

J'ai créé un programme me permettant de trouver un outillage adapté en fonction de données rentrées par l'utilisateur.

Pour tout ce qui est des données numériques pas de soucis, tout fonctionne à merveille !

En revanche, je dois comparer une chaîne de caractères sous format string aux valeurs d'une cellule, cependant rien à faire, passer par une variable annexe, comparer directement, dans tout les cas rien ne fonctionne. J'ai essayé de modifier les valeurs des cellules excell également mais rien n'y fait.

Voici le code simplifié:


Type CôtesNorm
    Diamètre As Double
    Dôme As String * 10
    Pression As Double
    Matrice As String * 10
End Type

Matrices(1) = ("CONIQUE")
Matrices(2) = ("ETAGEE")

Sub ChercheCoteNormalisée()
    Worksheets("Dimensions boite").Activate
    Dim I As Integer
    Dim find As Boolean
    Dim Diamètre, Pression As Double
    Dim Dôme As String * 10
    Dim Mat As String * 10
    
    find = False
    I = 1
    Do While find = False And I <= NbCotes      'NbCotes est une variable dont la valeur est définie dans une macro précédente.
        With CotesNorm(I)
            Mat = .Matrice
            If .Diamètre = Range("Diam").Value Then
                If .Dôme = Range("Dôme_type").Value Then
                    If .Pression = Range("Pépreuve").Value Then
                        If .Matrice = Mat Then
                            find = True
                            Range("Existance_Matrice").Value = "oui"
                        End If
                    End If
                End If
            End If
        End With
        I = I + 1
        Loop

    If find = False Then
        Beep
        MsgBox ("Pas de côtes normalisées")
    End If
End Sub

Les ligne qui ne fonctionnent pas sont les lignes "If .Matrice = Mat Then" et "If .Dôme = Range("Dôme_type").value") then"

je vous remercie d'avance pour vos réponses !!

A voir également:

Comparer une variable string avec les valeurs d'une cellule
Aller à la ligne dans une cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Verrouiller une cellule excel - Guide
Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Google Docs

1 réponse

Réponse 1 / 1

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
21 mai 2019 à 15:48

Bonjour,

Vous pouvez mettre un fichier model avec tous vos noms de plage, des donnees utilisables et le code evidement …….

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

ou
'mon partage
https://mon-partage.fr/

Boxcop1999
21 mai 2019 à 16:40

Bonjour,

Merci pour votre réponse mais vous n'arrivez pas à voire le souci directement ? Le fichier appartient à mon entreprise et le faire se promener sur internet pose évidemment quelques soucis !

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
Modifié le 21 mai 2019 à 18:06

Re,

voire le souci directement ?
A l'aveugle, pourquoi pas..................

le faire se promener sur internet
Je ne demande pas le fichier d'origine, mais un fichier avec des donnees bidons mais cohérentes
En passant par les messages prives,en mettant un mot de passe et une duree limitee sur la creation fichier, seul vous et moi auront acces a ce fichier. Mais c'est vous qui voyez……

Les ligne qui ne fonctionnent pas
Pus précisément !!!!!!

C?tesNorm o accent circonflexe et plus loin, CotesNorm(I) comprends pas

de meme :

Matrices(1) = ("CONIQUE")
Matrices(2) = ("ETAGEE")

'NbCotes est une variable dont la valeur est d?finie dans une macro pr?c?dente.
Ben oui

Et marche pas du tout, manque du code ou…...

Discussions similaires

additionner nombres dans cellules avec texte

Bonjour à tous,
Je vous contacte car je n'ai pas trouvé la solution à mon problème.
J'ai vu des posts qui s'en rapprochaient mais pas réussi à mettre en œuvre :/

J'ai deux colonnes contenant texte et chiffres et souhaite "simplement" additionner les chiffres afin de contrôler si les totaux sont bons.
Voilà ce que j'ai :
Existe [3] N'existe pas [223]
Existe [185] N'existe pas [41]
Existe [10] N'existe pas [216]
Existe [21] N'existe pas [205]
Existe [6] N'existe pas [220]
Existe [6] N'existe pas [220]
Existe [1] N'existe pas [225]
Existe [1] N'existe pas [225]
Existe [1] N'existe pas [225]

Cellules en surbrillance selon une TextBox

Bonjour à tous,

Voici mon problème : j'ai une liste d'utilisateurs dans une TextBox. Chaque utilisateur est lié à plusieurs références listées sur la feuille 'Principal'.
Est-il possible de mettre en surbrillance (police en gras ou coloriage temporaire de la cellule) toutes les références liées à un utilisateur choisi dans la TextBox ?

Une copie d'écran pour me faire comprendre (enfin j'espère !)

Merci pour votre aide !
Wyrgle

excel fractionner une cellule horizontalement

Bonjour, ca parait simple mais pour un débutant en excel c'est le contraire ma question est comment fractionner une cellule horizontalement ou verticalement et aussi je cherche savoir écrire deux lignes dans une seule cellule

Excel : colorer une cellule sous condition d'une autre ?

Bonjour,
Aprés avoir bien cherché j'ai trouvé quelque solution, mais ce n'est pas clair pour moi...
J'ai un tableau excel sur lequel je veux colorer une cellule si une autre cellule est différente de la lettre X ou O. La forme conditionnelle ne réponds à mon besoin à priori. Comment faire? Je suis pas trés calée non plus en ce qui concerne les formules
Merci d'avanceConfiguration: Windows XP
Internet Explorer 6.0

Remplir une cellule (texte) en fonction d'une autre (texte).

Bonjour à tous,

Je vais encore vous embêter aujourd'hui avec mon registre/rapport.

Ma question est simple (enfin je crois).
J'ai une liste de client :
- Autocars truc
- Bidule Autocars
- ... etc

J'ai une adresse pour chaque client (sous forme de liste) :
- Pont de Ernest
- Chemin Départemental 6
- ... etc

J'ai un code poste pour chaque client (sous forme de liste) :
- 99548
- ... etc

Ma question est : Si en D18 je récupère l'information du nom de mon client, je veux en D19 son adresse, en E20 son code postal et en M20 sa ville en fonction des listes d'ad...