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
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
A voir également:
- Vba excel
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
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
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
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
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
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...
A+
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+
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
11 juil. 2008 à 13:15
C´est vrai mais j'avais privilegie le copier/coller (flemme quand tu nous tiens) ;-)