Calvus
XLDnaute Barbatruc
Bonjour,
J'ai une macro dont le but est de chercher si une valeur existe.
Si tel n'est pas le cas alors la copie se fait en dernière ligne.
2 questions :
1/ Si la colonne A ne contient pas de donnée numérique, alors j'obtiens une erreur (incompatibilité de type 13)
Pourquoi ?
(Je n'ai pas cette erreur si la recherche se fait dans un autre classeur à partir de celui-ci !!)
2/ Une fois Var1 copiée, comment arrêter la boucle ? En effet la valeur s'inscrit autant de fois qu'il y a de lignes, ce qui ne me convient évidemment pas.
Je précise que la suite de la macro devra faire une recherche pour les autres colonnes également, jusqu'à la colonne K
Merci de votre aide.
J'ai une macro dont le but est de chercher si une valeur existe.
Si tel n'est pas le cas alors la copie se fait en dernière ligne.
VB:
Sub copie()
Dim i As Integer, var1 As String
var1 = [E1].Value
For i = 3 To Range("A1000").End(xlUp)
If Not Range("A" & i) Like var1 Then
Range("A1000").End(xlUp).Rows(2) = var1
End If
Next
End Sub
2 questions :
1/ Si la colonne A ne contient pas de donnée numérique, alors j'obtiens une erreur (incompatibilité de type 13)
Pourquoi ?
(Je n'ai pas cette erreur si la recherche se fait dans un autre classeur à partir de celui-ci !!)
2/ Une fois Var1 copiée, comment arrêter la boucle ? En effet la valeur s'inscrit autant de fois qu'il y a de lignes, ce qui ne me convient évidemment pas.
Je précise que la suite de la macro devra faire une recherche pour les autres colonnes également, jusqu'à la colonne K
Merci de votre aide.