[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 ?