Discussion :

[ElPibeOro]

Bonjour,

J'ai un fichier Excel avec 94 colonnes et 191 lignes.
Mon problème est le suivant : Lorsque une ligne contient la valeur "Non retenu" en colonne T, je voudrais faire passer cette ligne dans une autre feuille du classeur.

J'ai deux questions :

- Est-il possible de ne faire passer que certaines colonne de cette ligne dans l'autre feuille ou est-ce que c'est obligatoirement la ligne entière qui sera déplacée ?
- Faut-il impérativement que je renseigne la valeur "Non retenu" dans la cellule ? Car mon tableau est en fait déjà rempli, et je voulais savoir si il fallait que je retape la valeur "Non retenu" dans chacune des cellules pour que la ligne soit transférée ou si cela peut se faire directement...

Voici le code VBA que j'ai mis en place pour l'instant :

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
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WsCible As Worksheet
Dim LigneAjout As Long
Dim NumLig  As Long
 
    If Target.Column = 20 Then
    Set WsCible = Worksheets("Annexe 2 (Avis Conf non retenu)")
    With WsCible
    LigneAjout = .Range("T" & .Rows.Count).End(xlUp).Row + 1
        If Target.Value = "Non retenu" Then
        Target.EntireRow.Copy Destination:=WsCible.Cells(LigneAjout, 1)
        End If
    End With
    Set WsCible = Nothing
    End If

Merci d'avance pour vos réponses

[ZebreLoup]

- Tu peux évidemment ne copier que certaines cellules plutôt que toute la ligne
- Je ne comprends pas bien la question, mais si tu veux dire que "Non Retenu" est déjà écrit dans les cellules, plutôt que d'utiliser l'évènement Worksheet_change, tu peux faire une macro qui boucle sur les lignes.

[ElPibeOro]

Et comment faire pour ne copier que certaines colonnes plutôt que toute la ligne ?

En fait, je ne suis pas très doué en langage VBA, j'ai déjà pas mal galéré pour faire ce code et je ne vois pas vraiment ce que tu veux dire par "faire une boucle sur les lignes". Je vois le principe, le programme regarde une ligne aprés l'autre, mais je ne vois pas comment le réaliser..

Merci en tout cas pour cette première réponse

[ZebreLoup]

A adapter :

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
Dim wsSource As Worksheet
Dim wsCible As Worksheet
Dim derniereLigne As Integer
Dim tmpLigne As Integer
Dim i As Integer
 
Set wsSource = Worksheets("Ta feuille source")
Set wsCible = Worksheets("Annexe 2 (Avis Conf non retenu)")
 
wsCible.Cells.ClearContents 'Eventuellement à modifier pour n'effacer qu'une partie
tmpLigne = 1
 
'On récupère la dernière ligne remplie
derniereLigne = wsSource.UsedRange.Rows + wsSource.UsedRange.Row
 
'Pour chaque ligne du fichier source
For i = 1 To derniereLigne
    'Si la colonne T contient "Non retenu"
    If wsSource.Cells(i, "T").Value = "Non retenu" Then
        'On copie les colonnes qui nous intéressent
        wsCible.Cells(tmpLigne, "A").Value = wsSource.Cells(i, "A").Value
        wsCible.Cells(tmpLigne, "C").Value = wsSource.Cells(i, "C").Value
        'On peut aussi faire plusieurs cellules d'un coup
        wsSource.Range("F" & i & "J" & i).Copy wsCible.Range("F" & tmpLigne)
 
        tmpLigne = tmpLigne + 1
    End If
Next i

[ElPibeOro]

Un grand merci à toi ZebreLoup !

Par contre si je copie ce code et que je l'adapte avec le nom de mes feuilles ça me met "Erreur type 13 : Incompatibilité de type"...
Tu vois d'où cela peut venir ?