[VBA]Faire correspondre chiffre avec mot
Résolu/Fermé
A voir également:
- [VBA]Faire correspondre chiffre avec mot
- Piratage facebook changer mot de passe - Guide
- Application pour écrire les chiffre en lettre - Télécharger - Outils professionnels
- Voir mot de passe wifi android - Guide
- Mettre un mot de passe sur un dossier - Guide
- Mot de passe administrateur - Guide
4 réponses
en fait j'ai trouver comment faire la correspondance a partir d'une chaine de carractère définie
Mais je ne sais pas récupérer la valeur de chauqe cellule pour la mettre en chaine de carractère.
Existe il un Moyen?
merci d'avance
Mais je ne sais pas récupérer la valeur de chauqe cellule pour la mettre en chaine de carractère.
Existe il un Moyen?
merci d'avance
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
29 juil. 2010 à 18:39
29 juil. 2010 à 18:39
Bonjour,
A+
Sub Test() Dim Lig As Long Dim Col As Integer Col = 1 'pour la colonne A For Lig = 1 To Range("65535").End(xlUp).Row If Cells(Lig, Col) <> "" Then Cells(Lig, Col + 1) = "Mot" & Cells(Lig, Col) End If Next Lig End Sub
A+
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
29 juil. 2010 à 18:48
29 juil. 2010 à 18:48
Mais je suppose que ce n'est pas le résultat que tu veux, en lisant entre les lignes je pense que ce n'est pas Split que tu dois employer mais Array
Sub Test2() Dim TB Dim Lig As Long Dim Col As Integer TB = Array(" ", "Voiture", "Auto", "Moto", "Vélo", "à Pieds", "Autocars") Col = 1 'pour la colonne A For Lig = 1 To Range("65535").End(xlUp).Row Cells(Lig, Col + 1) = TB(Val(Cells(Lig, Col))) Next Lig End Sub
29 juil. 2010 à 17:26
Pourrais-tu poster un extrait du code, qu'on se fasse une idée ?