chris6999
XLDnaute Impliqué
Bonsoir
J'ai depuis peu une erreur de type "dépassement de capacité" sur le code ci-après.
j'avais cru comprendre qu'il s'agissait d'un pb de calcul mais il n'y a aucun calcul dans ma mcro.
Quelqu'un aurait-il une idée?
Merci
Sub SupprimeLignesInutiles() 'celles ou figurent TI43
Dim Cellule As Range
'supprime les lignes lorsque la valeur TI43 est présente sur la ligne
For Each Cel In Range("A1:M500")
If Cel.Value Like "*TI43*" Then
Cel.EntireRow.delete
End If
Next Cel
End Sub
J'ai depuis peu une erreur de type "dépassement de capacité" sur le code ci-après.
j'avais cru comprendre qu'il s'agissait d'un pb de calcul mais il n'y a aucun calcul dans ma mcro.
Quelqu'un aurait-il une idée?
Merci
Sub SupprimeLignesInutiles() 'celles ou figurent TI43
Dim Cellule As Range
'supprime les lignes lorsque la valeur TI43 est présente sur la ligne
For Each Cel In Range("A1:M500")
If Cel.Value Like "*TI43*" Then
Cel.EntireRow.delete
End If
Next Cel
End Sub