Sujet Précédent Sujet Suivant

Vba excel

Fermé
jjppgg - 8 juil. 2008 à 19:45
zavenger Messages postés 811 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 20 avril 2012 - 11 juil. 2008 à 13:15
Bonjour,
Je souhaite écrire une macro VBA qui me permet sur la totalité d'une feuille excel de remplacer chaque cellule contenant VRAI par 1 et chaque cellule contenant FAUX par 0
La feuille contiendra toujours le même nombre de colonnes mais pourra varier dans son nombre de lignes selon les fichiers à traiter.

2 réponses

Réponse 1 / 2
zavenger Messages postés 811 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 20 avril 2012 161
11 juil. 2008 à 09:45
Bonjour,

une petite fonction comme celle-ci (a adapter bien sur)

Sub toto()
derlig = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
For Each titi In Range("A1:S" & derlig).Cells
If titi = "VRAI" Then
titi.Value = 1
End If
If titi = "FAUX" Then
titi.Value = 0
End If
Next
End Sub
0
Réponse 2 / 2
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
11 juil. 2008 à 13:12
Bonjour tout les deux,
Ta macro fonctionne, mis pourquoi tester deux fois la même cellule quand ce n'est pas nécessaire.
Si une cellule est à VRAI, changer en 1... Mais il n'est plus nécessaire de tester FAUX puisqu'ont sait qu'elle est à 1
d'ou, petite rectification... 
Sub toto()
    derlig = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    For Each titi In Range("A1:S" & derlig).Cells
        If titi = "VRAI" Then
            titi.Value = 1
        ElseIf titi = "FAUX" Then
            titi.Value = 0
        End If
    Next
End Sub

A+
0
zavenger Messages postés 811 Date d'inscription vendredi 29 février 2008 Statut Membre Dernière intervention 20 avril 2012 161
11 juil. 2008 à 13:15
C´est vrai mais j'avais privilegie le copier/coller (flemme quand tu nous tiens) ;-)
0