Copier la valeur d'une cellule vers autre cellule avec vba

[rimbaut]

Bonjourà tous,

Je souhaiterai faire une macro vba avec excel qui me renvoie la valeur des cellules d'une plage qui répondent à une condition ( par ex > 100) vers une uatre feuille du même classeur ou d'un classeur différent.

Je pense qu'il faut utiliser la méthode range mais je ne comprends pas trop sa syntaxe.

Merci d'avance pour votre aide

[Ayoros]

Salut,

 

ce bout de code devrait t'aider si j'ai bien compris ton besoin

Je suppose que ta plage est la colonne A avec les 100 premières cellules et que tu les copie dans l'onglet 2 si leur valeur est strictement supérieure à 100.

dim i as integer
dim j as integer 'i et j sont les ligne et colonne des cellules que tu recopies dans l'onglet 2
i=0
j=0
Onglet1.Range("A1:A100").select
For each cell in selection
 If cell.value>100 then
	  onglet2.cells(i,j).value=cell.value
	  i=i+1
	  j=j+1
 end if
Next

Je previens aussi que je n'ai pas pu testé ce code, il y a peut-être des modifs à opérer.

 

Bonne chance,

 

Ayoros.

[rimbaut]

Merci Ayoros, c'est ce que je cherchais

A bientôt

[rimbaut]

Mille excuses mais comme je débute en vba j'essaye de comprendre le code et j'ai tenté celà mais je ne sais pas pourquoi celà achope :

 

Sub trier_tableau()

 

Dim lig As Integer

For lig = 3 To 5000

lig = 3

If Cells(lig, 2) > 100 Then

Range(Cells(lig,1), Cells(lig,2).Select(Onglet2)

 

 

End If

Next lig

 

End Sub

 

Lors de l'exécution, im ressort une erreur de syntaxe

[Ayoros]

Il y adeux choses que me semblent bizarres :

 

1) tu boucles sur lig de 3 à 5000 mais juste après tu écris lig=3 ?

 

2)Il manque une parenthèse qui ferme ton range qui doit être sélectionné. Ensuite si tu veux faire cela sur l'onglet 2, je mettrais onglet2.Range(... Je ne suis pas sûr que select (onglet2) fasse quelquechose.

[scuny]

clair

 

lig sera toujours egal a 3

 

et pour travailler avec range sur des feuilles syntaxe est

 

range(feuil1!A1:A100)

 

feuil1 = le nom de ton onglet