Discussion :

[aminebelhaj007]

bonjour,

ci-dessous un programme ou j'ai voulue cherchez une case et puis sélectionner une case au dessous de celle là et faire un collage des données.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub Saisie()
Dim A As String
Dim k As String
Dim i As Integer
 
 
 
 
A = Sheets("Saisie des données").[B6]
  ligne = Sheets(A).[B65000].End(xlUp).Row + 1
  With Sheets(A)
    .Cells(ligne, 1) = Sheets("Saisie des données").[B5]
    .Cells(ligne, 2) = Sheets("Saisie des données").[B7]
    .Cells(ligne, 3) = Sheets("Saisie des données").[B8]
    .Cells(ligne, 4) = Sheets("Saisie des données").[B9]
    .Cells(ligne, 6) = Sheets("Saisie des données").[B10]
    .Cells(ligne, 7) = Sheets("Saisie des données").[B11]
    .Cells(ligne, 8) = Sheets("Saisie des données").[B12]
  End With
  Sheets("Saisie des données").[B7].ClearContents
  Sheets("Saisie des données").[B8].ClearContents
  Sheets("Saisie des données").[B9].ClearContents
  Sheets("Saisie des données").[B10].ClearContents
  Sheets("Saisie des données").[B11].ClearContents
  Sheets("Saisie des données").[B12].ClearContents
 
Sheets("Tableau Données").Select
 
For i = 1 To 365
If (ActiveSheet.Cells(3, i)) = ActiveSheet.Cells(47, 4) Then k = i
 
Next
MsgBox (k)
Sheets("Tableau collecte données").Select
Range("C5:C34").Select
Selection.Copy
Sheets("Tableau Données").Select
Range(5, k).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
 
 
End Sub

le problème ce que j'ai un message "1004" au niveau de Range(5,k).select !!!
Ce que j'ai compris que il y a un problème avec la variable k, car lorsque je la change par une constante le programme fonctionne ! et aussi l'afichage de la variable cas fonctionne et elle est bien une constante !
Avez vous des idées ?

[casefayere]

Bonjour,

je n'ai pas cherché à comprendre ce que tu cherches à faire mais te propose une amélioration, déjà en passant "k" en "Long" et non "String"

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
27
28
29
30
31
32
33
34
Sub Saisie()
Dim A As String
Dim k As Long
Dim i As Long
 
 
 
A = Sheets("Saisie des données").[B6]
ligne = Sheets(A).[B65000].End(xlUp).Row + 1
With Sheets(A)
  .Cells(ligne, 1) = Sheets("Saisie des données").[B5]
  .Cells(ligne, 2) = Sheets("Saisie des données").[B7]
  .Cells(ligne, 3) = Sheets("Saisie des données").[B8]
  .Cells(ligne, 4) = Sheets("Saisie des données").[B9]
  .Cells(ligne, 6) = Sheets("Saisie des données").[B10]
  .Cells(ligne, 7) = Sheets("Saisie des données").[B11]
  .Cells(ligne, 8) = Sheets("Saisie des données").[B12]
End With
For i = 7 To 12
  Sheets("Saisie des données").Range("B" & i).ClearContents
Next i
With Sheets("Tableau Données")
  For i = 1 To 365
    If .Cells(3, i) = .Cells(47, 4) Then k = i
  Next
End With
MsgBox k
With Sheets("Tableau collecte données")
  .Range("C5:C34").Copy
  Sheets("Tableau Données").Range(5, k).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
  xlNone, SkipBlanks:=False, Transpose:=False
End With
 
End Sub

[Promethee25]

Bonjour,

Quand c'est le numéro de ligne et le numéro de colonne que tu passes en paramètre, il ne faut pas utiliser la propriété Range mais Cells.

[aminebelhaj007]

casefayere, Promethee25,

Merci infiniment !! grâce à vous mon problème est résolus

Cordialement