Discussion :

[Madiaw]

Bonjour et merci d'avance pour votre précieuse aide.
En tant que grand débutant ça fait plusieurs jours que je me casse la tête sur une requête.
J'ai un fichiers de 3 feuilles. Je veux créer une requête via un bouton de commande qui me permet à chaque fois q'une colonne affiche "A DETRUIRE" de couper la ligne correspondante et la coller sur une autre feuille ainsi de suite...
En dessous ce que j'ai fait :

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
Private Sub CommandButton1_Click()
Dim iLI As Integer
Dim iRE As Integer
Dim LI As Worksheet
Dim RE As Worksheet
Set LI = Worksheets(1)
Set RE = Worksheets(2)
iRE = 2
For iLI = 4 To 1000
If LI.Cells(iLI, 11).Text = "A DETRUIRE" Then
 RE.Rows(iRE) = RE.Rows(iLI)
'LI.EntireRow(iLI).Copy RE.Range("A1", 11)
iRE = iRE + 1
End If
Do While RE.Cells(iRE, 1).Value <> ""
    iRE = iRE + 1
Loop
Next
End Sub

Comme vous vous en doutez . . . ça ne marche pas et je sais pas quel est le problème
Merci de votre aide

[laetitia]

bonjour Madiaw le forum un exemple enleve ce code dans ton fichier

Code :

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

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets(1).coloumns(2).Copy
Worksheets(2).coloumns(1).Paste
End Sub

puis...
code du bouton

Code :

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

1
2
3
Private Sub CommandButton1_Click()
essai
End Sub

la macro dans un module standard attention au nom des feuilles adapte!!

Option Explicit

Code :

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

1
2
3
4
5
6
7
8
Sub essai()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("k3", Range("k65536").End(xlUp))
If c = "A DETRUIRE" Then
c.EntireRow.Cut Destination:=Sheets(2).Range("A65536").End(xlUp)(2)
 End If: Next c
End Sub

[Madiaw]

Merci Laetitia

Mais comment éviter les blancs sur la feuille d'origine après avoir couper et coller les lignes qui contiennent le "A DETRUIRE" ?

[laetitia]

rebonjour essai comme cela

Code :

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

1
2
3
4
5
6
7
8
9
Sub essai()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("k3", Range("k65536").End(xlUp))
If c = "A DETRUIRE" Then
c.EntireRow.Cut Destination:=Sheets(2).Range("A65536").End(xlUp)(2)
 End If: Next c
Sheets(1).[A4:A65000].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

[Madiaw]

MILLE MILLIARDS DE MILLES MERCI Laetitia

[Madiaw]

Bonjour Laetitia

Je reviens encore une fois bénéficier de tes lumières.
Cette fois ci je souhaite couper et coller une partie au lieu de toute la ligne: de A3 à K3 et la coller sur la feuille 2.

Et sur la feuille 2 j'ai intégré des check box et je souhaiterais afficher la valeur "DETRUIT" sur la colonne K à chaque fois que je coche sur une case.

Je joins le fichier !

Merci d'avance