condition dans une macro

[henri]

Bonjour à toutes & à tous,

Ci-dessous, une macro créer grace à votre aide, à laquelle je souhaite y ajouter une condition.J'explique :
1) je souhaiterais qu'elle s'execute dans le cas où la séléction ("NuMaconnerie") contient quelque chose (chiffre ou nbre) et dans le cas contraire quelle ne s'execute pas et que l'on passe à la macro suivante, et ainsi de suite jusqu'à la fin des macros.

2)J'ai créer environ x macros dans le même style : Pour que les macros s'exécute automatiquement l'une aprés l'autre, faut il mettre quelque chose
entre end Sub et subNumxxx


Merci pour vos réponses


Henri

Sub NuMaconnerie()
Dim Maplage As Range
Dim Cell As Range
Dim Compteur As Integer

Set Maplage = Sheets(1).Range(" NuMaconnerie") 'à ajuster
Compteur = 1
For Each Cell In Maplage
If Cell.Value <> "" Then
Cell = Compteur
Compteur = Compteur + 1
End If
Next
End Sub


Sub NumSanifour()
Dim Maplage As Range
Dim Cell As Range
Dim Compteur As Integer

Set Maplage = Sheets(1).Range(" NumSanifour") 'à ajuster

Compteur = 1
For Each Cell In Maplage
If Cell.Value <> "" Then
Cell = Compteur
Compteur = Compteur + 1
End If
Next
End Sub

 

[Vériland]

Bonsoir Henri et le forum,

Voilà ce qui pourrait fonctionner d'après ce que j'ai pu comprendre à ta question...c'est à dire...dès que la cellule nommée NuMaconnerie est vide alors aller a (goto) deuxième sinon écrire en A1 première condition...et ainsi de suite...


Sub Changer()

If Sheets(1).Range("NuMaconnerie").Value = "" Then GoTo deuxième

Range("A1").Value = "première condition"

deuxième:

If Sheets(1).Range("NumSanifour").Value = "" Then GoTo troisième

Range("B1").Value = "Deuxième condition"

troisième:

End Sub

Ca va çà te convient ?

A+ Vériland