jean123
XLDnaute Occasionnel
bonjour,
j'ai une macro dans laquelle je souhaite intégrer une gestion d'erreur
dans cette macro si il n'y a pas de données a traiter j'ai une erreur
j'appel cette macro dans une autre macro
j'ai une macro dans laquelle je souhaite intégrer une gestion d'erreur
Code:
Option Explicit
Dim tabloI, tabloC, tabloAC()
Dim i&, ln&
Sub NOM_P()
tabloI = Sheets("feuil1").Range("R2:S" & Sheets("feuil1").Range("R" & Rows.Count).End(xlUp).Row)
tabloC = Range("Q2:Q" & Range("Q" & Rows.Count).End(xlUp).Row)
ReDim tabloAC(UBound(tabloC, 1), 1)
For i = 1 To UBound(tabloC, 1)
For ln = 1 To UBound(tabloI, 1)
If tabloC(i, 1) = tabloI(ln, 1) Then
tabloAC(i - 1, 0) = tabloI(ln, 2)
End If
Next ln
Next i
Range("Z2").Resize(UBound(tabloAC, 1), 1) = tabloAC
End Sub
dans cette macro si il n'y a pas de données a traiter j'ai une erreur
j'appel cette macro dans une autre macro