Probleme sur mon code

Bonjour,

J'ai commencé un code peut-être pas très jolie mais pour un débutant c'est un début.

J'ai une erreur sur cette partie du code:

If ((Sheets("IMPORT MAG").Cells(i, 2) = p) And (Sheets("IMPORT MAG").Cells(i, 3) = Sheets("BD").p & Cells(0, 1))) Then

je pense que c'est sur cette partie du Sheets("BD").p & Cells(0, 1).

Merci de votre aide

Je vous joint un fichier

Bonjour

Les erreurs semblent venir de ce type de ligne. tu as cells(0,1) ...... la ligne 0 n'existant pas

J'ai remplacé le 0 par i-5 pour arriver à la ligne 3 de BD..

Est ce cela qui coinçait ?

Do While Range("i1").Value = "trouver"
 If (sheet_IMPORT_MAG.Cells(i, 2) = p) Then
 If Sheets("IMPORT MAG").Cells(i, 2) = p And Sheets("IMPORT MAG").Cells(i, 3) = Sheets("BD").Cells(i - 5, 1) Then
  p = p + 1
 End If
  If ((Sheets("IMPORT MAG").Cells(i, 2) = p) And (Sheets("IMPORT MAG").Cells(i, 3) <> Sheets("BD").Cells(i - 5, 1))) Then
  Sheets("IMPORT MAG").Select
  Selection.Offset(0, 0).Select

Cordialement

FINDRH

Merci de la réponse mais ce n'est pas ce que je veux.

je compare la valeur dans import mag à partir de b8 à la valeur de la bd a partir de p

et ensuite je compare la valeur dans import mag à partir de c8 à la valeur de la bd a partir de p décaler sur c8.

Si la condition est remplie j'incrémente p de 1 pour vérifier la condition sur toutes les valeurs de la BD.

Une idée

Bonjour

OK

mais la cellule cells(0,1) n'existe pas ....

FINDRH

Je suis d'accord avec vous.

Je rappelle je suis vraiment novice en programmation .

Dans une partie de mon code j'ai mis ceci:

Sheets("BD").Cells(j, 2).Select          ' je me positionne ici
     Selection.Offset(0, 0).Select                    
      Position = Selection.Offset(0, 0) ''''''
      p = Selection.Offset(0, 0)  

et la je veux mettre en mémoire la première position

Et cette position que je veux récupérer et décaler d'une colonne sur le code en défaut.

Merci

Bonjour

Pour une meilleure lisibilité, merci d'utiliser la balise "Code"

Cordialement

Bonjour

Merci du conseil Amadeus

Mais comment on utilise la balise code?

ET en même temps avez-vous une solution à mon problème?

Bonjour

proposition atout hasard

Récupérer la ligne et la colonne via

Sheets("BD").Cells(j, 2).Select

vlig1=activecell.row

vcol1=activecell.column

ensuite

cells(vlig1,vcol1+1).select

Cordialement

FINDRH