Vérification existence d'une valeur pour lancer un macro

Bonjour

J'ai besoin d'un macro pour vérifier si une cellule contient une valeur donc un autre macro se déclenche et s'il trouve #N/A il fait rien.

PS: le macro doit se répéter pour une colonne de 99 lignes.

Merci d'avance pour votre aide

bonjour,

il y a toutes sortes de possibilités ...

Sub teste()
     For i = 1 To 100     'boucle 100 fois
          If Len(Cells(i, 1).Value) = 0 Then teste2 i     'si cellule est vide, lancer macro Teste2 avec un paramètre
     Next
End Sub

Sub teste2(valeur)
     Cells(valeur, 1).Value = valeur     'changez la valeur d'une cellule
End Sub

pour la création des dossiers j'ai utilise ce macro :

Sub creer_dossier()
Dim ws_data As Worksheet
Dim lstrx As Long
Dim nom_prenom As String
Dim chemin_du_dossier As String
Set ws_data = Worksheets(1)

lstrx = ws_data.Cells(Rows.Count, 2).End(xlUp).Row

For i = 4 To lstrx

nom_prenom = ws_data.Cells(i, 1) & "_" & ws_data.Cells(i, 3) & "_" & ws_data.Cells(i, 4)

chemin_du_dossier = "C:\Users\mmjenzri\OneDrive - Sopra Steria\Desktop\TEST\" & nom_prenom & "\"

If Dir(chemin_du_dossier, vbDirectory) <> vbNullString Then

Else

MkDir (chemin_du_dossier)

End If

Next

MsgBox ("Dossier crée")

End Sub

j'ai pas compris comment j'ajoute le macro que tu m'a donné, j'ai besoin que lorsque le macro trouve dans la colonne T N/A il ne crée pas de dossier et s'il trouve un numéro dans il lance le premier rebot que j'ai crée

Je suis débutant et j'essaye de trouver des solutions facile , merci pour ton aide