vba excel

Question

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.

zavenger · Answer

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

lermite222 · Answer

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+

Vba excel

2 réponses

Newsletters