Ajout a des colonnes sous une condition
Fermé
wakafa
Messages postés
40
Date d'inscription
mercredi 22 juillet 2015
Statut
Membre
Dernière intervention
7 décembre 2020
-
Modifié par wakafa le 4/08/2015 à 10:29
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 4 août 2015 à 11:20
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 4 août 2015 à 11:20
A voir également:
- Ajout a des colonnes sous une condition
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Ajout rapide snap ✓ - Forum Snapchat
- Déplacer une colonne excel - Guide
- Ajout snap sans rien - Forum Snapchat
- Colorer cellule excel sous condition - Guide
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
4 août 2015 à 11:20
4 août 2015 à 11:20
Bonjour,
comme ca ira mieux:
Pour Infos: si vous voulez faire un ET pour x test:
comme ca ira mieux:
Private Sub CommandButton1_Click()
Dim U As Integer
U = Sheets("Feuil5").Range("B" & Rows.Count).End(xlUp).Row + 1
If MsgBox("Etes vous sûr de vouloir ajouter ces informations?", vbYesNo, "Demande de confirmation") = vbYes Then
If OptionButton1 = True Then
If OptionButton3 = True Then
Feuil5.Range("B" & U) = Val(TextBox1)
Feuil5.Range("C" & U).Value = ComboBox3
Feuil5.Range("D" & U).Value = ComboBox4
ElseIf OptionButton4 = True Then
Feuil5.Range("E" & U) = Val(TextBox1)
Feuil5.Range("F" & U).Value = ComboBox3
Feuil5.Range("G" & U).Value = ComboBox4
ElseIf OptionButton5 = True Then
Feuil5.Range("H" & U) = Val(TextBox1)
Feuil5.Range("I" & U).Value = ComboBox3
Feuil5.Range("J" & U).Value = ComboBox4
End If
End If
If OptionButton2 = True Then
If OptionButton3 = True Then
Feuil5.Range("L" & U) = Val(TextBox1)
Feuil5.Range("M" & U).Value = ComboBox3
Feuil5.Range("N" & U).Value = ComboBox4
ElseIf OptionButton4 = True Then
Feuil5.Range("O" & U) = Val(TextBox1)
Feuil5.Range("P" & U).Value = ComboBox3
Feuil5.Range("Q" & U).Value = ComboBox4
ElseIf OptionButton5 = True Then
Feuil5.Range("R" & U) = Val(TextBox1)
Feuil5.Range("S" & U).Value = ComboBox3
Feuil5.Range("T" & U).Value = ComboBox4
End If
End If
End If
End Sub
Pour Infos: si vous voulez faire un ET pour x test:
If OptionButton1 = True And OptionButton3 = True Then