Comment mettre des conditions en visual basic pour les macro

[god]

Je m'amuse bien en se moment avec visual basic,
mon but serai de metre des condition entre les macros, pour eviter les bug.
je travail avec 2 fenetres du meme classeur et evidemment si l'opérateur suprime une des 2 fenetre les macros plantes (c logique)

c pour quoi je voudrais ecrire dans visual basic juste avant l'execution de la macro

si fenetre = 1 alors créer un fenetre
si fenetre = 2 alors executer la macros

mais je ne trouve pas la fonction compteur
j'ai essayé
If Window = 1 Then newwindow
etc ....
mais il ne compte pas il me prend les numero de fenetre en actif.

qui connait bien visual basic ???

merci
ced

[Kitty]

Salut,

Attention : ne confond pas Visual Basic avec le langage VBA. Ce dernier est dédié Office alors que le premier est de la programmation pure.

[philou]

Salut,

tout dépend de ce que tu veux mettre comme conditions,
la règle générale est :

Sub Zoubida ()
If ............ Then
..........
Else
..........
End If
End Sub

autre exemple :

Sub quid()
Dim cell As Variant
Dim x As Variant
Application.CommandBars("Visual Basic").Controls(1).Enabled = False
Application.CommandBars("Visual Basic").Controls(2).Enabled = False
Application.CommandBars("Visual Basic").Controls(3).Enabled = False

x = Range("D65536").End(xlUp).Row

For Each cell In Range("A" & 2 & ":D" & x)

If cell.Value = "blabla" Then
Application.CommandBars("Visual Basic").Controls(1).Enabled = True

ElseIf cell.Value = "bloblo" Then
Application.CommandBars("Visual Basic").Controls(2).Enabled = True

ElseIf cell.Value = "blibli" Then
Application.CommandBars("Visual Basic").Controls(3).Enabled = True


End If

Next cell

End Sub


La macro regarde pour chaque cellule dans la plage (ici) A2:Dx (x étant la dernière cellule utilisée dans column D), vérifie si les arguments ( ici : blabla, blibli ou bloblo) sont présents et active les boutons de commandes y correspondant.

@+