Programme avec cellule comme variable
Résolu/Fermé
zawaza
Messages postés
10
Date d'inscription
mercredi 8 juillet 2015
Statut
Membre
Dernière intervention
5 septembre 2015
-
Modifié par pijaku le 12/08/2015 à 15:09
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 12 août 2015 à 17:08
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 12 août 2015 à 17:08
A voir également:
- Programme avec cellule comme variable
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Vba range avec variable ✓ - Forum VB / VBA
- Frequence programme national ✓ - Forum Messagerie
- Programme demarrage windows 10 - Guide
- Verrouiller cellule excel - 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
11 août 2015 à 17:14
11 août 2015 à 17:14
Bonjour,
vu les declarations de variables de votre function:
vu les declarations de variables de votre function:
Public Sub ButtonPrint_Click()
Call Func("C6", "B", "B")
End Sub
Public Function Func(i As String, j As String, k As String)
If Sheets("PRINT and PDF").Range(i).Value = 0 Then
Sheets("Mainline Progress Tab").Columns(j & ":" & k).EntireColumn.Hidden = True
End If
End Function
12 août 2015 à 14:33
Modifié par pijaku le 12/08/2015 à 15:09
Si je voulais remplacer Le remplissage de la case , par une check box , quelle doit etre la synthaxe ?
J'avais pense :
Public Sub ButtonPrint_Click() Call Func("Checkbox22", "B", "B") End Sub Public Function Func(i As CheckBox, j As String, k As String) If i.Value = True Then Sheets("Mainline Progress Tab").Columns(j & ":" & k).EntireColumn.Hidden = True End If End FunctionMais toujours la meme erreur ...
12 août 2015 à 14:42
Checkbox sur feuille ou dans userform ???
12 août 2015 à 15:49
Je voudrais que si je coche la Checkbox, la colonne associee soit cachee dans SHEET2, j'ai essaye ca , mais toujours un pbm ... ^^
Public Sub ButtonPrint_Click()
Call Func("B", "B", "B") ( pour checkboxB cacher la colonne B )
End Sub
Public Function Func(i As String, j As String, k As String)
If ("checkbox" & i).Value = True Then
Sheets("SHEET2)").Columns(j & ":" & k).EntireColumn.Hidden = True
End If
End Function
Merci beaucoup pour votre aide !
12 août 2015 à 17:08
Public Sub ButtonPrint_Click() Call Func("B", "B", "B") ' (pour checkboxB cacher la colonne B ) End Sub Public Function Func(i As String, j As String, k As String) With Sheets("SHEET2") If .OLEObjects("CheckBox" & i).Object.Value = True Then .Columns(j & ":" & k).EntireColumn.Hidden = True End If End With End Function