Informatique Pratique

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

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.

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.

@+