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 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 - 12 août 2015 à 17:08

Bonjour ,
Je voudrais creer un programme ayant 3 variables i une cellule (A1 , E5, .. ) et j, k deux colonnes.
Et pouvoir faire marcher ce programme grace a un bouton sur la spreadsheet ...
J'ai realiser cela :
mais un message d'erreur s'affiche ...."Argument Typy mismatch"

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").Select
    Columns("j:k").Select
    Selection.EntireColumn.Hidden = True
End If
End Function

Merci d'avance pour votre aide !
Sarah

A voir également:

Programme avec cellule comme variable
Excel cellule couleur si condition texte - Guide
Programme demarrage windows 10 - Guide
Aller à la ligne dans une cellule excel - Guide
Proteger cellule excel - Guide
Mettre en veille un programme - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
11 août 2015 à 17:14

Bonjour,

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

zawaza Messages postés 10 Date d'inscription mercredi 8 juillet 2015 Statut Membre Dernière intervention 5 septembre 2015
12 août 2015 à 14:33

C'est parfait !! Merci beaucoup !

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

Ah , j'ai une autre question en fait ( toujours un probleme de synthaxe, que je n'arrive pas a resoudre avec internet ...)
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 Function

Mais toujours la meme erreur ...

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713 > zawaza Messages postés 10 Date d'inscription mercredi 8 juillet 2015 Statut Membre Dernière intervention 5 septembre 2015
12 août 2015 à 14:42

Bonjour,

Checkbox sur feuille ou dans userform ???

zawaza Messages postés 10 Date d'inscription mercredi 8 juillet 2015 Statut Membre Dernière intervention 5 septembre 2015
12 août 2015 à 15:49

Sur Feuille

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 !

Re,

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

Discussions similaires

Python

Excel formule : savoir si une cellule contient partie texte

VBA : Range avec références variables..

Programme python