> Tous les forums > Forum Bureautique
 Condition dans excelSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
jo.nat1
  Posté le 15/11/2008 @ 08:12 
Aller en bas de la page 
Petit astucien

Salut à tous, J'ai créer un Formulaire dans un classeur excel 2000, et dans ce formulaire j'ai une quarantaine de checkBox, mais voilà dans je enregistrer mon formulaire, il me manque vrai ou faux dans mais colonnes. Alors je voudrais savoir s'il y a pas un moyen de faire mettre une croix à la place du vrai et ne rien inscrire à la place du du faux. en attente de vos réponses. Merci. A+
Publicité
manet61
 Posté le 15/11/2008 à 10:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Entrer dans la cellule où le résultat doit apparaître la formule suivante:

=si(condition que vous voulez tester;"X";"")

A+

jo.nat1
 Posté le 15/11/2008 à 16:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Salut manet61, je te remerci pour ta réponse mais malheureusement cela ne fonctionne pas comme je le voudrais. Merci.

manet61
 Posté le 17/11/2008 à 11:33 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Passez-moi une copie de votre fichier parCjoint.com pour voir ce qu'il s'y passe.

A+

jo.nat1
 Posté le 21/11/2008 à 20:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Salut tout le monde, si joint mon fichier comme Manet61 me l'a demande si cela ne marché pas. Si vous avez des idées Merci. http://cjoint.com/?lvursNBlhK.

galopin01
 Posté le 21/11/2008 à 21:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonjour,

Pour rester simple ! Voili une manière de voir les choses :

Private Sub cmdOK_Click()
'on teste la saisie date...'
If Me.TextBox1.Text = "" Then
MsgBox "entrer la date."
Me.TextBox1.SetFocus
Exit Sub
End If

'on test la saisie Kms...'
If Me.TextBox2.Text = "" Then
MsgBox "Entrer les Kilomètres."
Me.TextBox2.SetFocus
Exit Sub
End If

'On test la saisie nom de garage...'
If Me.TextBox3.Text = "" Then
MsgBox "Entrer le nom du garage."
Me.TextBox3.SetFocus
Exit Sub
End If

i = Range("A1").End(4).Row + 1
'Mise en place des données de l'UserForm3 dans la feuille de calcul'
With Sheets("feuil2")

.Cells(i, 1) = Me.TextBox1
.Cells(i, 2) = Me.TextBox2
.Cells(i, 3 = Me.TextBox3
.Cells(i, 4) = IIf(Me.CheckBox1, "X", "")
.Cells(i, 5) = IIf(Me.CheckBox5, "X", "")
.Cells(i, 6) = IIf(Me.CheckBox8, "X", "")
.Cells(i, 7) = IIf(Me.CheckBox6, "X", "")
.Cells(i, 8) = IIf(Me.CheckBox7, "X", "")
.Cells(i, 9) = IIf(Me.CheckBox33, "X", "")
.Cells(i, 10) = IIf(Me.CheckBox2, "X", "")
.Cells(i, 11) = IIf(Me.CheckBox11, "X", "")
.Cells(i, 12) = IIf(Me.CheckBox36, "X", "")
.Cells(i, 13) = IIf(Me.CheckBox3, "X", "")
.Cells(i, 14) = IIf(Me.CheckBox9, "X", "")
.Cells(i, 15) = IIf(Me.CheckBox4, "X", "")
.Cells(i, 16) = IIf(Me.CheckBox10, "X", "")
.Cells(i, 17) = IIf(Me.CheckBox12, "X", "")
.Cells(i, 18) = IIf(Me.CheckBox13, "X", "")
.Cells(i, 19) = IIf(Me.CheckBox22, "X", "")
.Cells(i, 20) = IIf(Me.CheckBox23, "X", "")
.Cells(i, 21) = IIf(Me.CheckBox15, "X", "")
.Cells(i, 22) = IIf(Me.CheckBox24, "X", "")
.Cells(i, 23) = IIf(Me.CheckBox16, "X", "")
.Cells(i, 24) = IIf(Me.CheckBox25, "X", "")
.Cells(i, 25) = IIf(Me.CheckBox17, "X", "")
.Cells(i, 26) = IIf(Me.CheckBox26, "X", "")
.Cells(i, 27) = IIf(Me.CheckBox18, "X", "")
.Cells(i, 28) = IIf(Me.CheckBox19, "X", "")
.Cells(i, 29) = IIf(Me.CheckBox27, "X", "")
.Cells(i, 30) = IIf(Me.CheckBox31, "X", "")
.Cells(i, 31) = IIf(Me.CheckBox20, "X", "")
.Cells(i, 32) = IIf(Me.CheckBox28, "X", "")
.Cells(i, 33) = IIf(Me.CheckBox21, "X", "")
.Cells(i, 34) = IIf(Me.CheckBox36, "X", "")
.Cells(i, 35) = IIf(Me.CheckBox29, "X", "")
.Cells(i, 36) = IIf(Me.CheckBox30, "X", "")
.Cells(i, 37) = IIf(Me.CheckBox34, "X", "")
.Cells(i, 38) = IIf(Me.CheckBox35, "X", "")
.Cells(i, 39) = Me.TextBox12
.Cells(i, 41) = Me.TextBox13
.Cells(i, 41) = Me.TextBox14
.Cells(i, 42) = Me.TextBox15
.Cells(i, 43) = Me.TextBox16
.Cells(i, 44) = Me.TextBox17
.Cells(i, 45) = Me.TextBox18
End With
Unload Me
End Sub

Voilou...

A+



Modifié par galopin01 le 21/11/2008 22:09
jo.nat1
 Posté le 22/11/2008 à 06:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

salut, Galopin01 je te remerci pout ta réponse. Un grand merci A+

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
Lot de 6 housses de rangement sous vide Amazon Basics (2xXXL, 2xL, 2xM) à 9,84 €
9,84 € 13,99 € -30%
@Amazon
Processeur AMD Ryzen 5 5600X (6 coeurs, 3.7/4.6 GHz, AM4) à 99,99 €
99,99 € 150 € -33%
@Cdiscount
Mini PC Ninkear N4 (Ryzen 5 4600H, 16 Go RAM, SSD 512 Go, WiFi 6, Windows 11 Pro) à 234 €
234 € 280 € -16%
@Geekbuying
Imprimante 3D Artillery X4 Pro Sidewinder (300x300x400 mm, nivellement automatique) à 159 €
159 € 259 € -39%
@Geekbuying
Caméra de surveillance extérieure TP-Link Tapo C500 (360°, alarme sonore personnalisable) à 32,99 €
32,99 € 59,99 € -45%
@Amazon
Boîtier PC moyen-tour MSI MAG Forge 120A Airflow (fenêtre acrylique, 6 ventilateurs RGB) à 64,99 €
64,99 € 90 € -28%
@Amazon

Sujets relatifs
Somme dans Excel sous condition
2 pages par feuille dans macro excel
Changement dans Excel 2010 ?
case à cocher dans cellule Excel 2010
Excel 2007 Copier/Coller d’une feuille à l’autre Dans un même classeur.
Creation d' une boucle macro dans fichier EXCEL pour impression
Relier des choix à des cellules dans excel
Largeur Hauteur colonnes en mm dans Excel
Extraire juste les nouvelles entrées dans BDD Excel
listing et somme valeurs unique dans colonne excel
Plus de sujets relatifs à Condition dans excel
 > Tous les forums > Forum Bureautique