Discussion :

[explosion]

bonjour à tous,

j'ai un petit problème de débutant , même très débutant pour moi
donc j'ai un classeur avec plusieurs feuilles
dans feuille1, je voudrais avec une condition que si colonne D ="" a partir d'une certaine ligne alors il me transfert 4 colonne de la feuille1 a la feuille2 et qu'il me les tri en fonction de la colonneAG.

Merçi de vos réponses

[zyhack]

Bonsoir

C'est pas très clair, le but du jeu est de confirmé la méthode suivante et de remplacer les ? par des valeurs concrètes.


je parcours la colonne D de la 1er feuille

a partir de la ligne ?? si la colonne D de la ligne est vide

je copie les colonne ?, ?, ? et ? de cette ligne

je les colles dans la deuxième feuille en colonne ?, ?, ? et ? à la ligne ?? (à la suite des autres?)

dans la deuxième feuille, y a t-il une ligne de titre?

[explosion]

j'ai fait un bon bout de code:

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
Sub Test1()
Dim StrNom As String                            'Declaration des variables'
Dim IntA As Integer
Dim StrIntitule As String
Dim IntD As Double
Dim i As Integer
Dim j As Double
j = 9
 
            For i = 1352 To 1736                    'boucle pour qui va tester toute les cellule de D si elles sont vides
            Sheets("Cdes Bât.").Select              ' positionnement sur la page bat
            If Range("D" & i) = "" Then             ' test si la cellule est vides
            StrNom = Range("F" & i)                 ' si elle est vide on recupere ce qu'il nous faut
            StrIntitule = Range("G" & i)
            IntA = Range("AG" & i)
            IntD = Range("A" & i)
            Sheets("Julien").Select                 ' positionnement sur la page julien
            Range("A" & j).Value = IntA             ' ajout des valeurs ds la pages julien
            Range("B" & j).Value = StrNom
            Range("C" & j).Value = StrIntitule
            Range("D" & j).Value = IntD
 
 
 
            End If
            j = j + 1
            Next
 
End Sub

2 problèmes:
- il fait un copier coller et moi, je veux un couper coller
- quand je lance le macro, il marche bien mais, il me met deux fois la liste.
qui peut m'aider ???

[zyhack]

Bonjour

essaye comme ça

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
 
Sub Test1()
Dim i As Integer
Dim j As Double
Dim wsh1 As Worksheet, wsh2 As Worksheet
Set wsh1 = Sheets("Cdes Bât."): Set wsh2 = Sheets("Julien")
j = 9
 
For i = 1352 To 1736 'boucle pour qui va tester toute les cellule de D si elles sont vides
  If wsh1.Range("D" & i) = "" Then ' test si la cellule est vides
    wsh1.Range("F" & i).Cut wsh2.Range("B" & j) ' si elle est vide on recupere ce qu'il nous faut
    wsh1.Range("G" & i).Cut wsh2.Range("C" & j)
    wsh1.Range("AG" & i).Cut wsh2.Range("A" & j)
    wsh1.Range("A" & i).Cut wsh2.Range("D" & j)
  End If
  j = j + 1
Next
Set wsh1 = Nothing: Set wsh2 = Nothing
End Sub

[explosion]

ça marche mais encore deux choses:

- dans la page julien , il commence a mettre la liste a partir de la ligne 270
- il fait toujours un copier/coller et moi, je voudrais un couper/coller

[mercatog]

Bonjour
Salut Zyhack, je me suis permis de déplacer j=j+1 dans ton code

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
Sub Test1()
Dim i As Integer
Dim j As Double
Dim wsh1 As Worksheet, wsh2 As Worksheet
Set wsh1 = Sheets("Cdes Bât."): Set wsh2 = Sheets("Julien")
j = 9
 
For i = 1352 To 1736 'boucle pour qui va tester toute les cellule de D si elles sont vides
  If wsh1.Range("D" & i) = "" Then ' test si la cellule est vides
    wsh1.Range("F" & i).Cut wsh2.Range("B" & j) ' si elle est vide on recupere ce qu'il nous faut
    wsh1.Range("G" & i).Cut wsh2.Range("C" & j)
    wsh1.Range("AG" & i).Cut wsh2.Range("A" & j)
    wsh1.Range("A" & i).Cut wsh2.Range("D" & j)
j = j + 1
  End If 
Next
Set wsh1 = Nothing: Set wsh2 = Nothing
End Sub

[zyhack]

Bonjour mercatog

bien joué par contre je ne m'explique pas sa deuxième remarque.

il fait toujours un copier/coller et moi, je voudrais un couper/coller

j'ai fait l'essais en local et CUT fait bien un couper/coller, y aurait-il un parramètre que j'aurais oublié ?

si tu avais une idée

[mercatog]

Non non, c'est exactement comme ça qu'il fallait faire pour le Couper/ coller.

[explosion]

enfaite , j'ai mal comprit ce que voulait mon patron, il faut faire un copier coller, car les 4 colonne transférés doivent restés dans les deux tableaux

[mercatog]

Dis à ton patron de remplacer les lignes comme

Code :

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

wsh1.Range("F" & i).Cut wsh2.Range("B" & j)

par

Code :

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

wsh1.Range("F" & i).Copy wsh2.Range("B" & j)

Bon, voyons, un peu d'effort.

[explosion]

Merçi a tous
pour le dernier bout de code, je l'ai trouvé moi même, et la, je me suis dis, je suis trop bête, tu faut juste mettre copy.
Je vous remerci tous de votre aide.