Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Simplification de phrases

Simplification de phrases

4 réponses
Avatar
Laurent.H
Bonjour,
je désire simplifier ce genre de phrase
Merci
Laurent

If optMarié And optMasculin Then ActiveCell.Offset(0, 5).Value = "Marié"
If optMarié And optMasculin Then ActiveCell.Offset(0, 0).Value = "Monsieur"
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour Laurent,

If optMarié And optMasculin Then
With ActiveCell
.Offset(0, 5).Value = "Marié"
.Offset(0, 0).Value = "Monsieur"
End With
End If

isabelle


Bonjour,
je désire simplifier ce genre de phrase
Merci
Laurent

If optMarié And optMasculin Then ActiveCell.Offset(0, 5).Value = "Marié"
If optMarié And optMasculin Then ActiveCell.Offset(0, 0).Value = "Monsieur"


Avatar
Pierre CFI [mvp]
bonjour
If optMarié And optMasculin Then
ActiveCell.Offset(0, 5) = "Marié"
ActiveCell.Offset(0, 0) = "Monsieur"
end if








--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site perso
http://access.cfi.free.fr
"Laurent.H" a écrit dans le message de news:
Bonjour,
je désire simplifier ce genre de phrase
Merci
Laurent

If optMarié And optMasculin Then ActiveCell.Offset(0, 5).Value = "Marié"
If optMarié And optMasculin Then ActiveCell.Offset(0, 0).Value = "Monsieur"




Avatar
Laurent.H
Merci
Laurent

"isabelle" a écrit dans le message de
news:
bonjour Laurent,

If optMarié And optMasculin Then
With ActiveCell
.Offset(0, 5).Value = "Marié"
.Offset(0, 0).Value = "Monsieur"
End With
End If

isabelle


Bonjour,
je désire simplifier ce genre de phrase
Merci
Laurent

If optMarié And optMasculin Then ActiveCell.Offset(0, 5).Value = "Marié"
If optMarié And optMasculin Then ActiveCell.Offset(0, 0).Value "Monsieur"




Avatar
Laurent.H
Merci
Laurent

"Pierre CFI [mvp]" a écrit dans le message de
news:uv%239L$
bonjour
If optMarié And optMasculin Then
ActiveCell.Offset(0, 5) = "Marié"
ActiveCell.Offset(0, 0) = "Monsieur"
end if








--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site perso
http://access.cfi.free.fr
"Laurent.H" a écrit dans le message de
news:

Bonjour,
je désire simplifier ce genre de phrase
Merci
Laurent

If optMarié And optMasculin Then ActiveCell.Offset(0, 5).Value = "Marié"
If optMarié And optMasculin Then ActiveCell.Offset(0, 0).Value "Monsieur"