MACRO POUR RECUPERER DES DONNEES d'une feuille vers une autr

Bonjour

J'ai crée une macro qui récupere des données d'un site internet et l'a colle sur une feuille excel que j'ai nommé TEMP.

Mon but est ensuite de créer une instruction qui récupere des données de cette feuille TEMP et l'a colle sur la Feuil1

Cependant il ne s'incremente pas bien, moi je veux que chaque fois qu'il voit le terme "ANTOINE BERGER" qu'il me copie les informations de la meme ligne et les colle sur Feuil1.

PS: La colonne 8 est de type " FERME(Prénom Nom)" ou "EN COURS(Prénom Nom)

Sub TEST()

M = Sheets("Feuil1").Range("A1").End(xlDown).Row + 1

For i = 28 To 200

'ANTOINE BERGER

If Right(Sheets("TEMP").Cells(i, 8), 15) = "(ANTOINE BERGER)" Then

Sheets("Feuil1").Cells(M, 8) = Sheets("TEMP").Cells(i, 4).Value 'THEME

Sheets("Feuil1").Cells(M, 6) = "Ngakam Landry" 'ASSIGNE A

Sheets("Feuil1").Cells(M, 7) = Sheets("TEMP").Cells(i, 3).Value 'MANTIS

Sheets("Feuil1").Cells(M, 1) = M - 3 'nUMERO

End If

'ETAT AVENCEMENT

If Left(Sheets("TEMP").Cells(i, 8), 5) = "FERME" Then

Sheets("Feuil1").Cells(M, 2).Interior.Color = RGB(0, 255, 0)

Else

Sheets("Feuil1").Cells(M, 2).Interior.Color = RGB(255, 0, 0)

End If

Next

End Sub

bonjour

Sub TEST()
 M = Sheets("Feuil1").Range("A1").End(xlDown).Row + 1
 For i = 28 To 200
   'ANTOINE BERGER
   If UCase(Sheets("TEMP").Cells(i, 8)) Like "*BERGER ANTOINE*" Then
      Sheets("Feuil1").Cells(M, 8) = Sheets("TEMP").Cells(i, 4).Value 'THEME
      Sheets("Feuil1").Cells(M, 6) = "Ngakam Landry" 'ASSIGNE A
      Sheets("Feuil1").Cells(M, 7) = Sheets("TEMP").Cells(i, 3).Value 'MANTIS
      Sheets("Feuil1").Cells(M, 1) = M - 3 'nUMERO
      'ETAT AVENCEMENT
      If Left(Sheets("TEMP").Cells(i, 8), 5) = "FERME" Then
         Sheets("Feuil1").Cells(M, 2).Interior.Color = RGB(0, 255, 0)
      Else
         Sheets("Feuil1").Cells(M, 2).Interior.Color = RGB(255, 0, 0)
      End If
      M = M + 1
   End If
 Next
End Sub

@h2s04 Je vois pas tes modifs...

En fait mon problème c'est que j'ai un probleme d'incrementation.

Par exemple dans le fichier TEMP à la colonne 8 ( celle ou est placé la condittion) il y a le nom ANTOINE BERGER à la ligne 28,36,42 mais quand le programme tourne il ne marche que pour c8L28 et apres il ne continue pas à chercher le nom ANTOINE BERGER dans la colonne.

QQun pourrait m'aider ?

bonjour,

mets-nous ton fichier.

Ci joint le fichier

pour ce qui est des modifications je t'invite à regarder le code :

déplacement d'un end if et ajout d'une instructionm=m+1

pour ce qui est du reste, il est normal qu'il ne te sorte que la première occurrence (ligne28) c'est la seule qui contienne "antoine berger" les autres lignes que tu mentionnes contiennent "berger antoine"

En fait je me suis trompé dans le code s'est Berger Antoine et non Antoine Berger

Je vois pas ou déplacer le "END IF" j'ai rajouté une instruction m=m+1 et ça marche ça incremente mais ca cree des décallage cad l'information ne vient pas se placer juste en dessous de la dernier case remplie.

Dois je rajouter une instruction indépendante qui supprime toutes les cases vides ?

Merci pour votre aide

slimshady a écrit :

En fait je me suis trompé dans le code s'est Berger Antoine et non Antoine Berger

Je vois pas ou déplacer le "END IF" j'ai rajouté une instruction m=m+1 et ça marche ça incremente mais ca cree des décallage cad l'information ne vient pas se placer juste en dessous de la dernier case remplie.

Dois je rajouter une instruction indépendante qui supprime toutes les cases vides ?

Merci pour votre aide

je t'ai fourni un code qui fonctionne avec tes données, recopie le code, sans l'adapter.

Je pense tu as oublié de joindre le fichier excel ou le code à ta réponse...

Bonjour,

le code se trouve dans mon message plus haut.