Discussion :

[hicham28]

Bonsoir, j'aimerai savoir le code pour faire une copie seulement du contenu d'une cellule sans prendre en considérations sa bordure, pour faire un transfert de données.
Merci

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuil1").Range("A1").value = Worksheets("Feuil2").Range("Z12").value

[hicham28]

bonsoir, merci de votre reponse, j'aimerai savoir pk ca m'annonce un débogage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Dim Ligne As Long
Dim MotCible As String

Sheets("Feuil1").Activate


MotCible = "*"

'Enlever le filtre en premier
ActiveSheet.AutoFilterMode = False

Rows(1).AutoFilter
Rows(1).AutoFilter field:=1, Criteria1:=MotCible


Ligne = Sheets("Feuil1").Value.Cells(Rows.Count, "A").End(xlUp).Row

Worksheets("Feuil1").Range("B2:G" & Ligne).copie.Value


Ligne = Sheets("Feuil2").Cells(Rows.Count, "A").End(xlUp).Row + 1

Sheets("Feuil2").Range("A" & Ligne).PasteSpecial 
Application.CutCopyMode = False
Range("A1").Select
End Sub

merci

[ouskel'n'or]

Que cherches-tu d'indiquer avec Rows.Count ?

[hicham28]

vraiment je ne c pas trop sur vba , c'etais juste ce que j'ai lu dans ce forum

[ouskel'n'or]

Bon, alors le mieux serait que tu formules ton problème clairement et que tu ailles faire un tour sur les cours
On ne pourra pas t'aider si toi-même ne peut nous expliquer ton projet (!)
Quand tu auras expliqué pas à pas (en français, non en code) ce que tu veux faire, on pourra sans doute t'aider.
Bon courage

[hicham28]

bonjour, j'ai joints le fichier pour etre plus claire pour le travail que j'aimerai en avoir une aide.
merci