Discussion :

[k123cl]

Bonjour,
J’essaie (depuis quelques heures) de copier certaines lignes qui sont dans ma feuille 5 intitulée « échéancier » dans ma feuille 7 nommée « février-14 »
Pour cela je ne veux copier que les lignes qui ont le nom « février-14 » dans la colonne G de la feuille 5.
J’ai essayé de le faire avec certaines choses que j’ai vu sur ce forum mais je n’y arrive pas. Pouvez-vous m’aider ? Je suis novice par rapport aux macros.
Voici ce que j’ai essayé :

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
 
Option Explicit
 
 
 
Sub copieligne()
 
Dim shS As Worksheet 'Source
Dim shD As Worksheet 'destination
Dim rCh As Range ' Nom a chercher
Dim iDest As Integer 'Ligne de destination dans feuille
Dim Cel As Range
Dim Ligne As Long
Dim i As Integer
 
Set shS = ThisWorkbook.Worksheets("FEUIL5") ' Feuille source
Set shD = ThisWorkbook.Worksheets("Feuil7") ' Feuille destination
Set rCh = shS.Range("février-14") ' Cellule contenant le nom à chercher
 
For i = 6 To 200
    If Range("Gi") = "février-14" Then shS.Rows(i).Copy _
    Destination:=shD.Cells(i, 1)
Next
 
  End Sub

Ca ne fonctionne pas..


Merci d'avance

[Marc-L]

Bonjour, bonjour,

la difficulté rencontrée est normale en cas de confusion d'affichage d'une cellule et de son contenu réel au format date !

Exemple d'une saisie d'une cellule : 14/2/2014 mais son affichage renvoie par exemple février-14 …

Dans ce cas la ligne n°21 du code par exemple ne peut fonctionner car souvent par défaut
VBA choisit .Value lorsqu'aucune propriété n'est précisée derrière un Range !

Autre grossière erreur c'est "Gi" qui ne veut rien dire d'autre que "Gi"
et non pas la concaténation de "G" & de la valeur numérique de la boucle i ‼

Donc tenter If Cells(i, 7).Text = "février-14" Then …

Je suis aussi dubitatif quant au Range de la ligne n°18 …
Idem quant à la casse des noms de feuilles des deux lignes précédentes …

De la rigueur s'impose !