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

Condition dans VBA sous Excel avec un format

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Aurèle
  • 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

Aurèle

Guest
Bonjour,

Je suis actuellement en stage et je suis bloquée sur un truc un peu bête.

Est il possible d'écrire la condition suivante :

Si le caractère dans ma cellule est de type "23/123456" alors sa valeur dans une autre colonne est "DAP".
Si le caractère est de type "23/123tn01" alors sa valeur dans l'autre colonne est "TRB".

Je dis bien de type car ça peut tout aussi bien être "12/456825" pour le premier. Tous les caractères de type "chiffre, chiffre/chiiffre,chiiffre,chiiffre,chiiffre,chiiffre,chiiffre"

J'ai écrit le code suivant :
if Worksheets("Feuil1").Cells(1, 1).value = "00/000000" then Worksheets("Feuil1").Cells(1, 2).value ="DAP"
mais évidemment ça ne marche pas !

Alors si vous pouviez maider assez rapidmeent car si je ne peux pas avancer demain, je suis plutôt mal :-(

Merci
 
Trier par date Trier par votes
Bonjour Aurèle, le forum

essaye ce code

A+

if IsNumeric(Right(Worksheets("Feuil1").Cells(1, 1).value, 6)) then
Worksheets("Feuil1").Cells(1, 2).value ="DAP"
else
Worksheets("Feuil1").Cells(1, 2).value ="TRB"
end if
 
Vote positif 0 Vote négatif
Merci bcp yeahou !

Mais il faudrait que je sache comment dire également que un caractère du type "12/23tn01" ait pour valeur dans l'autre cellule TRB. Car en fait je t'ai simplifié le problème, j'ai bcp plus de conditions que ça normalement.

Merci si tu peux m'aider
 
Vote positif 0 Vote négatif
rebonjour aurèle

tu mets la condition à tester dans le else, tout dépend du test que tu désires, celui la teste la présence de la chaine tn dans la cellule

A+

if IsNumeric(Right(Worksheets("Feuil1").Cells(1, 1).value, 6)) then
Worksheets("Feuil1").Cells(1, 2).value ="DAP"
else
if instr(1,Right(Worksheets("Feuil1").Cells(1, 1).value,"tn", 1))>0 then
Worksheets("Feuil1").Cells(1, 2).value ="TRB"
end if
end if
 
Vote positif 0 Vote négatif
Remerci encore une fois mais en fatit, les deux lettres du milieu peuvent être n'importe lesquelles, et pas forcément tn, c'est là la dificulté.

je ne sais pas comment dire : il y a deux lettres au milieu (en encore ce n'est pas forcément le milieu)

. Si tu as la réponse, merci bcp !
 
Vote positif 0 Vote négatif
Bonjour Aurèle, le forum

la je ne comprends pas trop ton problème
le premier code fait cela
si la chaine testée est numérique condition 1
si elle ne l'est pas (elle contient des caractères non numériques) condition 2
cela correspond bruyamment à ce que tu dis dans ton dernier post.
le deuxième code teste la présence d'une chaine donnée et peux donc traiter tout les cas de figure que tu évoques.
Si cela ne te va pas, il faut que tu expliques pourquoi, notamment les tests que tu veux.


Cordialement, 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

  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
765
jeff1494
EXCEL :: TCD :: SEGMENTS :: Identifier l'élément sélectionné dans le segment :: Modifier dynamiquement la valeur d'un segment :: VBA
Réponses
1
Affichages
578
oguruma
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
1 K
Mody200
M
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
C
  • Question Question
Microsoft 365 VBA Moyennes avec conditions
Réponses
7
Affichages
705
AtTheOne
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
1 K
Dranreb
I
  • Résolu(e)
Microsoft 365 VBA EXCEL Utilisation d'une variable avec données dans un tableau
Réponses
4
Affichages
1 K
mapomme
E
  • Résolu(e)
XL 2016 Calcul avec condition
Réponses
2
Affichages
539
ElodieFo
E
  • Résolu(e)
XL 2016 Notation Simplifiée pour définir un tableau arborescent
Réponses
9
Affichages
1 K
Lu76Fer
D
  • Résolu(e)
XL 2013 Copie vers un autre classeur avec condition
Réponses
2
Affichages
1 K
Dafaka7
D
A
  • Question Question
Microsoft 365 VBA: importer dans un dossier avec un nom variable
Réponses
4
Affichages
1 K
A-F
A
V
  • Résolu(e)
XL 2021 Complétion d'un tableau automatisée
Réponses
9
Affichages
1 K
VincentH.DR
V
A
  • Question Question
XL 2013 Utilisation de la fonction "Case" dans VBA
Réponses
12
Affichages
1 K
AnjyD
A
T
  • Question Question
Microsoft 365 Comment donner des couleurs aux lignes d'une ListView excel VBA
2 3
Réponses
34
Affichages
5 K
TooFatBoy
C
  • Résolu(e)
Microsoft 365 SI remplissage cellule (MFC) ALORS transposer la réponse dans une colonne
Réponses
3
Affichages
2 K
Chaine
C
A
  • Question Question
XL 2010 VBA Formule Insertion d'une formule dans une cellule Excel avec un programme VBA
Réponses
2
Affichages
815
Allostarz
A
  • Résolu(e)
XL 2019 Compter le Nbre de ligne selon critères dans 2 colonnes - Macro VBA Excel 2019
Réponses
5
Affichages
1 K
Virginie17d
S
  • Résolu(e)
Autres excel 2021 VBA : Comment modifier un choix dans un segment d'un TCD (annuler & sélectionner) ?
Réponses
1
Affichages
4 K
Scoub
S
G
  • Question Question
XL 2016 Ecrire une boucle pour afficher ensemble dans un userform, toutes ses textbox complétées par la boucle! Voir mon code et photos feuilles joints !
Réponses
8
Affichages
1 K
vgendron
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…