Discussion :

[graphikris]

Bonjour,

Dans un tableau nommé "ORDINATEUR", je cherche à copier coller les valeurs d'une ligne si cette dernière est renseignée en colonne X.

Voici mon code mais je bloque au niveau de la sélection des lignes dont la colonne X est ou non renseignée à ârtir de la ligne 11 :

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
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
'Copie et colle les valeurs de la ligne entière si la date de clôture est renseignée (colonne X)
Dim rng As Range
Me.Unprotect "1234"
' La variable KeyCells contient la colonne (Ici X) qui déclenchera  le "Copier/Coller les valeurs" si elle est renseignée.
Set rng = Range("X:X")
If Not Application.Intersect(rng, Range(Target.Address)) Is Nothing Then
 
'Sélection du tableau "Ordinateur"
    Application.Goto Reference:="Ordinateur"
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
                                                                         , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                    :=False, Transpose:=False
 
End If
Me.Protect "1234"
End Sub

Quelqu'un peut il m'aider pour que mon code fonctionne ?

Cordialement.

[BENNASR]

bonsoir
je suis débutant et je peux pas adapter ton code
pour moi si je veux envoyer ligne entière autre feuille selon condition je fais comme suit :

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
Sub test()
' nétoyer feuille 2 qui recevera les données
Sheets("feuil2").Cells.Clear
 
'copier si la colonne x est non vide
 
Dim i As Long
Dim k As Integer
k = 1
With Sheets("feuil1") 'ici données en feuil1 à adapter si nécessaire
i = .Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To i
If .Cells(i, 24) <> "" Then
  .Cells(i, 1).EntireRow.Copy
   Sheets("Feuil2").Activate
   Sheets("Feuil2").Cells(k, 1).Select
   ActiveSheet.Paste
    k = k + 1
    End If
Next i
End With
End Sub

j'espère que ça te résoudre le problème
si non bonne soirée

[Menhir]

Code :

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

If Not Application.Intersect(rng, Range(Target.Address)) Is Nothing Then

Petite rectification liminaire : Range(Target.Address), c'est un peu comme si tu appelais quelqu'un au téléphone pour lui demander son numéro de téléphone.
Ca peut se simplifier ainsi :

Code :

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

If Not Application.Intersect(rng, Target) Is Nothing Then

Code :

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

    Application.Goto Reference:="Ordinateur"

Je pense que cette partie est inutile.
Il suffit de faire un Range("Ordinateur") pour accéder aux données de ton tableau dans ton code.
La logique de VBA n'est pas la même que celle d'une utilisation classique d'Excel. Inutile (dans 99% des cas) de sélectionner une cellule pour utiliser ce qu'elle contient ou la modifier.

Pour vérifier toutes les lignes de ton tableau, il faudra faire une boucle.
La plus simple est un For To sur le nombre de lignes du tableau (même s'il serait plus efficace de faire un For Each sur toutes les cellules non vides de la colonne X en utilisant un SpecialCells).

Code :

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

1
2
3
4
5
6
Dim Ligne As Long
For Ligne = 1 To Range("Ordinateur").Rows.Count
 
... le code ...
 
Next Ligne

Pour le test, il suffira de faire un If en vérifiant le contenu de la cellule souhaitée.
Par exemple, si tu veux tester la colonne 5 du tableau :

Code :

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

If Range("Ordinateur").Cells(Ligne, 5).Text = "" Then

Code :

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

1
2
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme
    Selection.PasteSpecial Paste:=xlPasteValues

Là, tu fais un collage sans avoir fait de copie. Ca ne peut pas marcher.
Mais comme dans ta demande tu n'indiques pas où tu veux coller, difficile de t'aider plus.

[graphikris]

Bonjour,

Je veux faire le collage spécial sur la même ligne que celle testée.
Si X2 est rempli (date de destruction) alors le collage spécial se fait sur la ligne 2
Si X45 est rempli (date de destruction) alors le collage spécial se fait sur la ligne 45
En fait je veux que les formules de la ligne dont la colonne X est remplie devienne une ligne avec des valeurs.
Cordialement.

[Menhir]

Dans mon post précédent, tu as tous les éléments pour le faire.

[graphikris]

Bonjour Menhir,
J'ai suivi tes explications mais ça ne fonctionne pas.
De plus dans ce code (ligne 13) je lui ai dit que si le texte etait "OK" mais en fait c'est pas OK mais une date (je ne sais pas comment lui dire en vba)
Toujours dans mon code aux lignes 14, 15 et 16 je lui dit de sélectionner et copier la ligne A2 à AA2 mais en fait je ne dois pas lui dire, c'est a la macro de savoir quelle colonne sélectionner.

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
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
'Copie et colle les valeurs de la ligne entière si la date de clôture est renseignée (colonne X)
    Dim rng    As Range
    Dim Ligne  As Long
    Me.Unprotect "1234"
    ' La variable KeyCells contient la colonne (Ici X) qui déclenchera  le "Copier/Coller les valeurs" si elle est renseignée.
    Set rng = Range("X:X")
    If Not Application.Intersect(rng, Target) Is Nothing Then
 
        For Ligne = 1 To Range("Ordinateur").Rows.Count
            If Range("Ordinateur").Cells(Ligne, 23).Text = "OK" Then
                Range("A2:AA2").Select
                Range("AA2").Activate
                Selection.Copy
                Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
                                                                                     , SkipBlanks:=False, Transpose:=False
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                                :=False, Transpose:=False
 
            End If
        Next Ligne
    End If
    Me.Protect "1234"
End Sub

[unparia]

Bonjour
J'adore la copie sur soi-même que fait ceci :

Code :

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

1
2
3
4
5
Selection.Copy
                Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
                                                                                     , SkipBlanks:=False, Transpose:=False
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                                :=False, Transpose:=False

En admettant (ce que je veux croire lorsque l'on montre un code) que le code montré est un copié/collé rigoureux du code écrit

[Theze]

Bonsoir,

De plus dans ce code (ligne 13) je lui ai dit que si le texte etait "OK" mais en fait c'est pas OK mais une date (je ne sais pas comment lui dire en vba)

Tu peux tester avec IsDate() :

Code :

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

1
2
 
If IsDate(Range("Ordinateur").Cells(Ligne, 23).Value) Then

[graphikris]

Bonjour et merci à vous tous mais malgré vos explications, le code ne fonctionne toujours pas.
Lorsque je saisi une date en X2 par exemple, toutes les formules qui se trouvent sur cette ligne 2 restent des formules et non des valeurs.
Ce code est dans la feuille "Suivi ordinateurs"

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Copie et colle les valeurs de la ligne entière si la date d'élimination est renseignée (colonne X)
Dim rng        As Range
Dim Ligne      As Long
    ActiveSheet.Unprotect "1234"
    ' La variable KeyCells contient la colonne (Ici X) qui déclenchera  le "Copier/Coller les valeurs" si elle est renseignée.
    Set rng = Range("X:X")
    If Not Application.Intersect(rng, Target) Is Nothing Then
        For Ligne = 1 To Range("Ordinateur").Rows.Count
            If IsDate(Range("Audit").Cells(Ligne, 23).Value) Then
                Selection.Copy
                Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
                                                                                     , SkipBlanks:=False, Transpose:=False
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                                :=False, Transpose:=False
            End If
        Next Ligne
    End If
    ActiveSheet.Protect "1234"
End Sub

[unparia]

Mon message N° 7 t'a très manifestement laissé totalement impassible !
Relis-le -- Re-re-relis-le encore et encore et encore

[graphikris]

Manifestement je ne dois pas savoir lire entre les lignes.
Et Oui effectivement, ayant du mal avec le codage instinctif, j'avoue que lorsque je desire un code simple du genre (copier/collage special[les valeurs]) alors je déclenche une macro puis je copie et colle le code obtenu dans mon code final.

ici en déclenchant une macro, j'obtiens :

Code :

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

1
2
3
Selection.Copy
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                                :=False, Transpose:=False

Où est donc le problème à par moi ?

[unparia]

Où est donc le problème à par moi ?

Il est sur ta chaise !

Et Oui effectivement, ayant du mal avec le codage instinctif

Ton "instinct" est alors très défaillant.
Et l'aide interne VBA ? Elle ne sert à rien ? Encore que, même sans la consulter ...

Alors ? --->>
La méthode Copy Copie l'objet Range dans la plage spécifiée ou dans le Presse-papiers (dans le presse-papiers, dans ton cas).
Et tu copies quoi, dans ton code ? -->> l'objet Selection


La méthode PasteSpecial colle un objet Range provenant du Presse-papiers (qui contient ton objet ... Selection) dans la plage spécifiée. Et tu spécifie quelle plage, dans ton code ? -->> l'objet Selection !

Tu salueras bassement pour moi ton instinct et l'inviteras à consulter.

[graphikris]

Tu salueras pour moi ton instinct et l'inviteras à consulter.

Pas tres sympa de ta part.
Sinon a part ça, je n'avance pas car je ne comprend pas.

[unparia]

Pas tres sympa de ta part.

Lis bien tout. "consulter" = consulter l'aide interne VBA.

Sinon a part ça, je n'avance pas car je ne comprend pas.

Je me sens dans ce cas totalement incapable de te faire comprendre ce qui :
- t'a été expliqué très clairement
- est une énorme évidence

[unparia]

tout le monde doit etre a ton niveau

non. Il suffira de celui de mon petit voisin (10 ans), qui est près de moi et stupéfait...
Je te laisse, maintenant (trop, c'est trop)

[graphikris]

Si une âme sympathique peut m'aider, ce n'est pas de refus.
Merci

[unparia]

Une âme "antipathique" va répondre à une question qui aurait du être exprimée très simplement ainsi :
"comment figer en valeurs ("constants") les résultats issus de formules dans une plage de données spécifiée"
(tout le reste n'étant que pipotage et bavardage inutiles)
Et la réponse (au demeurant donnée mille et une fois sur ce forum) est (ici en exemple avec la plage A35) --->>

Code :

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

Range(A3:D5).Value = Range(A3:D5).value

Point barre.

[graphikris]

Bonjour et merci
mais je ne vois pas pourquoi le code de depart est egal au code d'arrivee ?

Range(A35).Value = Range(A35).value

Pourquoi en 1er on ne met pas Range(A35).Formula ?
Dans cet exemple tu cibles la plage alors que pour mon fichier ceux sont des lignes qui ne se suivent peut etre pas.

[unparia]

mais je ne vois pas pourquoi le code de depart est egal au code d'arrivee ?
Range(A35).Value = Range(A35).value
Pourquoi en 1er on ne met pas Range(A35).Formula ?

Parce que je suis tout sauf zinzin ...

tu cibles la plage alors que pour mon fichier ceux sont des lignes qui ne se suivent peut etre pas.

Oui ? Et alors ? Si quelqu'un t'interdit de le faire dans ta boucle de parcours, dénonce-le à la police

Mais évite de te faire frapper sur les doigts en disant que tu appliques la "chose" à une "sélection" que ... tu n'as même pas faite, hein ...

EDIT : Et depuis le temps que tu viens sur ce forum, tu devrais savoir depuis longtemps que l'on ne travaille de surcroît pas à coups de select, selection, etc ..., mais sur les objets Excel, que l'on invoque directement.

Mais voilà : tu pleurniche, passes ton temps à dire que tu es "débutant" (éternel ... et inquiétant), etc ..., mais ne t'intéresses en réalité pas vraiment à autre chose qu'à obtenir un plat tout cuit.

[graphikris]

Stop, ça suffit, je ne veux plus de votre aide.
Je ne suis pas le seul que vous injuriez de façon mesquine.
A chaque fois que vous répondez à un post de quelqu'un qui a du mal a comprendre, c'est une cascade de moqueries.