Vba excel

jjppgg -  
zavenger Messages postés 811 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   161
 
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   Statut Contributeur Dernière intervention   1 191
 
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   Statut Membre Dernière intervention   161
 
C´est vrai mais j'avais privilegie le copier/coller (flemme quand tu nous tiens) ;-)
0