Remplacement de valeurs numériques
Fermé
steve
-
27 juin 2008 à 11:28
zavenger Messages postés 809 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 20 avril 2012 - 3 juil. 2008 à 09:29
zavenger Messages postés 809 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 20 avril 2012 - 3 juil. 2008 à 09:29
A voir également:
- Remplacement de valeurs numériques
- Remplacement tirexo - Guide
- Excel nombre de valeurs différentes ✓ - Forum Excel
- Remplacement disque dur par ssd - Guide
- Jonas tape 125 sur le pavé numérique de son clavier mais rien n'apparaît à l'écran. donnez le numéro de la touche sur laquelle elle doit appuyer pour que le pavé numérique fonctionne. - Forum Windows
- 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 Excel
3 réponses
manunea
Messages postés
16
Date d'inscription
mardi 8 avril 2008
Statut
Membre
Dernière intervention
5 janvier 2009
2
27 juin 2008 à 12:37
27 juin 2008 à 12:37
Bonjour,
fait ton remplacement à l'envers.
Commence par Z (26) en allant vers A(1).
Etant donné que tu vas faire le remplacement, comme cité dans ton exemple, de L(12) avant le A ou le B, le tour est joué me semble t-il!
ER
fait ton remplacement à l'envers.
Commence par Z (26) en allant vers A(1).
Etant donné que tu vas faire le remplacement, comme cité dans ton exemple, de L(12) avant le A ou le B, le tour est joué me semble t-il!
ER
zavenger
Messages postés
809
Date d'inscription
vendredi 29 février 2008
Statut
Membre
Dernière intervention
20 avril 2012
159
27 juin 2008 à 12:42
27 juin 2008 à 12:42
Voici une fonction toute simple
Sub replace()
For Each toto In Range("B2:D3")
If (toto.Value >= 1) And (toto.Value <= 26) Then
toto.Value = Chr(toto.Value + Asc("A") - 1)
End If
Next
End Sub
Evidement tu ajustes ta zone et si tu veux des lettres minuscules a la place des majuscules tu remplace "A" par "a"
Sub replace()
For Each toto In Range("B2:D3")
If (toto.Value >= 1) And (toto.Value <= 26) Then
toto.Value = Chr(toto.Value + Asc("A") - 1)
End If
Next
End Sub
Evidement tu ajustes ta zone et si tu veux des lettres minuscules a la place des majuscules tu remplace "A" par "a"
merci a vous et merci zavenger. ton prog marche tres bien sauf que mon exemple était probablement pas tres pertinent.
si je dois le reformuler, il s'agirait de remplacer une valeur numérique présente dans une cellule par la cellule correspondante.
soit remplacer la cellule A57 (par exemple) comportant le chiffre X (par exemple 8) par la cellule X de la colonne D.
posez moi vos questions si necessaire
a pluch
si je dois le reformuler, il s'agirait de remplacer une valeur numérique présente dans une cellule par la cellule correspondante.
soit remplacer la cellule A57 (par exemple) comportant le chiffre X (par exemple 8) par la cellule X de la colonne D.
posez moi vos questions si necessaire
a pluch
zavenger
Messages postés
809
Date d'inscription
vendredi 29 février 2008
Statut
Membre
Dernière intervention
20 avril 2012
159
>
steve
2 juil. 2008 à 14:52
2 juil. 2008 à 14:52
Sub replace()
For Each toto In Range("A1:A8")
If (toto.Value >= 1) And (toto.Value <= 26) Then
toto.Value = range("D"&toto.Value).value
End If
Next
End Sub
A toi d'ajuster la zone a parcourir ainsi que l'endroit ou tu vas chercher tes valeurs de remplacement
For Each toto In Range("A1:A8")
If (toto.Value >= 1) And (toto.Value <= 26) Then
toto.Value = range("D"&toto.Value).value
End If
Next
End Sub
A toi d'ajuster la zone a parcourir ainsi que l'endroit ou tu vas chercher tes valeurs de remplacement
steve
>
zavenger
Messages postés
809
Date d'inscription
vendredi 29 février 2008
Statut
Membre
Dernière intervention
20 avril 2012
2 juil. 2008 à 19:54
2 juil. 2008 à 19:54
énorme, merci, une vie sauvée a ton compteur zavenger.
c'est facile qd on voit le resultat, lol
c'est facile qd on voit le resultat, lol
zavenger
Messages postés
809
Date d'inscription
vendredi 29 février 2008
Statut
Membre
Dernière intervention
20 avril 2012
159
3 juil. 2008 à 09:29
3 juil. 2008 à 09:29
de rien,
Passe le status en resolu stp
Bonne journée
Passe le status en resolu stp
Bonne journée