selectioner un colonne

Version imprimable

Bonjour ,
Code:

1 2 3 4 5 6 7 8 9 Range("A4:" & Trouve.Offset(-1, 0).Address).Select Selection.Copy Range("O4").Select ActiveSheet.Paste Range("D4:" & Trouve.Offset(-1, 4).Address).Select Selection.Copy Range("P4").Select ActiveSheet.Paste
Sur la deuxième Range moi je souhaite que copier le colonne D4 tous seul mais le programme sélectionne les 2 colonne B et D
Comment sélectionné que le D ?
Merci pour vos réponse.

16/03/2016, 12h14
casefayere

Bonjour,
Déjà
Que représente "Trouve.Offset(-1, 0).Address" ?

Voici le code depuis départ.

Code:

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
44
45
46
47
48
49
50
Sub test1()
' Macro1 Macro
'
 
'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1)), TrailingMinusNumbers:=True
    ActiveWindow.SmallScroll Down:=-18
 
'déclaration des variables :
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String
 
'********* à adapter ***********
'affectation de valeurs aux variables :
    'on cherche le mot "Trouve"
Valeur_Cherchee = "LABOR"
    'dans la première colonne de la feuille active
Set PlageDeRecherche = Feuil1.Columns(1)
'*******************************
 
'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
 
'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
  MsgBox "C'est pas un rapport valide"
Else
    'ici, traitement pour le cas où la valeur est trouvée
 
    Range("A4:" & Trouve.Offset(-1, 0).Address).Select
    Selection.Copy
    Range("O4").Select
    ActiveSheet.Paste
 
    Range("D4:" & Trouve.Offset(-1, 4).Address).Select
    Selection.Copy
    Range("P4").Select
    ActiveSheet.Paste
End If
 
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
 
End Sub

je souhaite quand en trouve Labor sélectionné que colonne A et D jusqu'à Labor .

j'ai éliminé tes "Select" qui ne servent à rien et mis ceci

Code:

1
2
3
4
5
6
7
8
9
10
If Trouve Is Nothing Then
  MsgBox "C'est pas un rapport valide"
Else
    'ici, traitement pour le cas où la valeur est trouvée
    Range("A4:" & Trouve.Offset(-1, 0).Address).Copy Range("O4") 'donc on copie de A4 jusque la ligne avant "Labor", en P
    Range("D4:" & Trouve.Offset(-1, 4).Address).Copy Range("P4") 'donc on copie de D4 jusque la ligne avant "Labor", en P
End If
 
Set PlageDeRecherche = Nothing
Set Trouve = Nothing

aucun problème rencontré, seules les colonnes A et D sont copiées mais je n'ai pas mis cette partie dans le code

Code:

1
2
3
4
5
6
7
  Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1)), TrailingMinusNumbers:=True
    ActiveWindow.SmallScroll Down:=-18

16/03/2016, 12h46
fanmanga

Merci pour ta réponse mais le code

Code:

Range("D4:" & Trouve.Offset(-1, 4).Address).Copy Range("P4")

sélectionne pas que le colonne D mais aussi le D et E.
Moi je veux sélectionné que le D.

essayes comme ça

Code:

Range("D4", "D" & Trouve.Offset(-1, 4).Row).Copy Range("P4")

avec les 2 instructions

Code:

1
2
3
4
5
6
7
8
9
10
11
'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
  MsgBox "C'est pas un rapport valide"
Else
    'ici, traitement pour le cas où la valeur est trouvée
    Range("A4", Trouve.Offset(-1, 0)).Copy Range("O4") 'donc on copie de A4 jusque la ligne avant "Labor", en P
    Range("D4", "D" & Trouve.Offset(-1, 4).Row).Copy Range("P4") 'donc on copie de D4 jusque la ligne avant "Labor", en P
End If
 
Set PlageDeRecherche = Nothing
Set Trouve = Nothing

16/03/2016, 14h31
fanmanga

Merci ca marche.