Discussion :

[davidlb]

dans un doc à deux feuilles je voudrais copier le contenu de chaque cellule se situant une ligne en dessous de chaque cellule où apparait le le texte du TextBox1; mais le texte copié est celui de chaque cellule ou apparait le texte du TxtBox et non celui de la cellule une ligne en dessous malgré Offset (1,0)
Merci du coup de main, mon code ci dessous:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
mess = TextBox1
Dim CelleLa As Range
For Each CelleLa In Worksheets("Feuil1").Range("A1:A1000").Cells
If CelleLa.Value = CVar(mess) Then CelleLa.Value.Offset(1, 0).Copy
ActiveSheet.Paste Destination:=Worksheets("Feuil2").Range("A1:A1000")
Next
UserForm1.Hide
End Sub

[AlainTech]

Offset s'applique à une cellule et pas à sa valeur...

[davidlb]

effectivement mais même en inversant avec:
If CelleLa.Value = CVar(mess) Then CelleLa.Offset(1, 0).Value.Copyet non Value.Offset de manière à sélectionner "le texte de la cellule d'en dessous", le résultat reste le même.
Quelquechose m'échappe...
Merci d'avance

[alsimbad]

il y a des chose qui ne sont pas coherentes dans ton code

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
mess = TextBox1
Dim CelleLa As Range
For Each CelleLa In Worksheets("Feuil1").Range("A1:A1000").Cells
If CelleLa.Value = CVar(mess) Then CelleLa.Offset(1, 0).CopyActiveSheet.Paste Destination:=Worksheets("Feuil2").Range("A1:A1000")Next
UserForm1.Hide
End Sub

tu prend une colone dont tu examine les cellules disons val1 val2 val3
admetons que la bonne occurence (mess)soit val1.
quand tu trouve val1 tu copie val2 sur la feuille2 sur mille casesde la colonne A
puis tu examine val2 puis val3
admetons que val3 soit aussi = a mes
a ce moment tu copie val4 au meme endraoit sur les milles premieres case de la colonne A, et donc en effaçant l'entrée précedente soit val2.
je ne pense pas que ce soit ce que tu souhaite, tu ferais peut-etre bien d'explique ce que tu veux obtenir

[alsimbad]

a bien y penser, mais je peux me tromper, tu essaie d'écrire en feuille 2 les lignes en dessous des case qui ont la valeur mess
disons que sur 10 lignes tu ais val1 val2 val3 val4 val1 val5 val6 val7 val1 val8
le resultat à obtenir serais en feuil2 a1,a2 et a3
val2 val5 et val8
donc

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub essai()
mess = "val1"
Dim CelleLa As Range
For Each CelleLa In Worksheets("Feuil1").Range("A1:A10").Cells
If CelleLa.Value = CVar(mess) Then
CelleLa.Offset(1, 0).Copy
i = i + 1
ActiveSheet.Paste Destination:=Worksheets("Feuil2").Range("A" & i)
End If
Next
End Sub

avec ça tu devrais t'arranger, et si c'est pas ça, a toi d'etre plus clair
bon dimanche