Selctionner des cellules dans un tableau

Bonjour, Voilà je cherche une façon de programmer pour selectionner des cellules dans un fichier Excel afin de les récrire dans un autre tableau d'un autre fichier.

Tout d'abord je cherche dans la colonne A les cellules où sont marqué "ET" puis je veux les cellules se trouvant sur ses lignes à la colonne H. Etant novice en VBA je cherche de l'aide svp. Faut-il utilioser la fonction "Cells.find" ou faire une boucle pour d'abord chercher les lignes où sont marqué ET et sélectionner les cellules de la colonne H.

Voilà ce que j'ai mis mais cela ne marche pas:

k=1 ' variable qui correspond aux lignes du tableau

Do Until ActiveSheet.Cells(k, 1) = ""

If ActiveSheet.Cells(k, 1) = "ET" Then

If ActiveSheet.Cells(k, 2) = "001" Then

ET001 = ActiveSheet.Cells(k, 7)

End If

If ActiveSheet.Cells(k, 2) = "002" Then

ET002 = ActiveSheet.Cells(k, 7)

End If

If ActiveSheet.Cells(k, 2) = "003" Then

ET003 = ActiveSheet.Cells(k, 7)

End If

If ActiveSheet.Cells(k, 2) = "004" Then

ET004 = ActiveSheet.Cells(k, 7)

End If

If ActiveSheet.Cells(k, 2) = "005" Then

ET005 = ActiveSheet.Cells(k, 7)

End If

If ActiveSheet.Cells(k, 2) = "006" Then

ET006 = ActiveSheet.Cells(k, 7)

End If

If ActiveSheet.Cells(k, 2) = "007" Then

ET007 = ActiveSheet.Cells(k, 7)

End If

If ActiveSheet.Cells(k, 2) = "008" Then

ET008 = ActiveSheet.Cells(k, 7)

End If

End If

k = k + 1

Loop

ActiveWindow.Close

End If

End Sub

Bonjour

Tes fichiers seraient plus utile que la macro

Tu y indiques en clair ce que tu veux obtenir, fais un exemple manuel du résultat voulu

re,

merci de m'avoir répondu mais mes fichiers sont confidentiels donc je ne vais pas pouvoir les montrer.

je souhaite pouvoir appuyer sur un bouton pour pouvoir mettre à jour mon fichier. Pour cela il faut que je puisse aller extraire des données dans un fichier excel où il y a tous les mois des données mises à jour sur un serveur. Ces données se trouvent toujours dans la même colonne mais à des lignes différentes tous les mois en fonction de l'identifiant en deux lettres de la colonne A.

voilà en espérant que cela aide ta réflexion

Bonsoir

Je comprends que tu ne veux pas divulguer tes fichiers confidentiels

Mais on n'a pas besoin des fichiers réels, seulement des copies anonymisées, avec des données exploitables

Sinon moi, dans ce cas, je ne sais pas faire

Quelqu'un d'autre le saura peut-être

Je veux récupérer les 1000000 euros!!???

Voici un fichier excel, ce sera surement plus clair

Bonjour

Antoine53100 a écrit :

Voici un fichier excel, ce sera surement plus clair

Et bien non

Mais bon je ne veux pas batailler

Un tableau vide : Utile ?

Les infos on en fait quoi ?

Tu fais comme tu veux mais si tu ne veux pas te donner la peine de préparer les fichiers, je n'y peux rien, mais cela sera sans moi

Je te souhaite une bonne journée

non mais merci quand même j'ai trouvé tout seul:

Sub Bouton1_Cliquer()

x = 0

For Each cell In ActiveSheet.Range("B3: B14")

If cell.Value = "ET" Then

x = 1

If x = 1 And cell.Offset(0, 1).Value = "1" Then

VA = cell.Offset(0, 3).Value

End If

If x = 1 And cell.Offset(0, 1).Value = "2" Then

VA1 = cell.Offset(0, 3).Value

End If

If x = 1 And cell.Offset(0, 1).Value = "3" Then

VA2 = cell.Offset(0, 3).Value

End If

End If

Next

ECRITURE_DATAS

End Sub

Sub ECRITURE_DATAS()

ActiveSheet.Cells(20, "B") = VA

ActiveSheet.Cells(21, "B") = VA1

ActiveSheet.Cells(22, "B") = VA2

VA = ""

VA1 = ""

VA2 = ""

End Sub