Programme avec cellule comme variable

Résolu

zawaza Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

A voir également:

Programme avec cellule comme variable
Excel cellule couleur si condition texte - Guide
Programme demarrage windows - Guide
Proteger cellule excel - Guide
Mettre en veille un programme - Guide
Message programmé iphone - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 Statut Membre Dernière intervention

C'est parfait !! Merci beaucoup !

zawaza Messages postés 10 Date d'inscription Statut Membre Dernière intervention

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > zawaza Messages postés 10 Date d'inscription Statut Membre Dernière intervention

Bonjour,

Checkbox sur feuille ou dans userform ???

zawaza Messages postés 10 Date d'inscription Statut Membre Dernière intervention

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 !

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > zawaza Messages postés 10 Date d'inscription Statut Membre Dernière intervention

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

A quoi sert l'application Bonjour?

Excel formule : savoir si une cellule contient partie texte

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

Votre réponse

Discussions similaires