Discussion :

[pryamani]

Bonjour,

Vous est-il possible SVP de m'éclairer sur une difficulté que je rencontre sur un copier-coller avec filtre.

Je vous explique le soucis : j'ai un fichier excel avec 2 colonnes. Sur la colonne B se trouve des informations, ici dans exemple du fichier joint xxxx, yyyy, aaaa, bbbb etc et des cellules vides.

Je souhaiterai dans ces cellules vides faire un copier-coller des informations se trouvant dans la colle A.

Pour ce faire j'ai fait un filtre sur la colonne B en sélectionnant "vide" puis j'ai fait un copier des éléments se trouvant dans la colonne A et je suis allée dans l'onglet "rechercher et sélectionner" - atteindre - cellules et j'ai coché "cellules visibles seulement" - "OK" et ensuite j'ai fait un copier de la sélection (colonne A) et j'ai coller dans la colonne B mais cela ne fonctionne pas.

d'où peut provenir l'erreur SVP ?

Je vous remercie par avance de votre aide
PryaPièce jointe 419083

[ARTURO83]

Bonjour,

Si j'ai bien compris, on peut obtenir ce que vous demandez avec l'aide d'une formule en colonne C,
En C1 saisissez:

Code :

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

=SI(ESTVIDE(B1);A1;B1)

A étirez vers le bas du tableau
Sélectionnez la colonne C, Faire COPIER
En colonne B, COLLER - COLLAGE SPECIAL - VALEURS
Supprimez la colonne C

Cdlt

[pryamani]

Bonjour,

Merci beaucoup Artur pour ton retour, la formule fonctionne très bien mais je ne souhaite pas rajouter une colonne, je veux que le copier-coller se fasse dans la colonne B.

Quand c'est vide, il copie les informations de la colonne A et quand la colonne B contient déjà des informations,i il laisse tel quel.

Merci
Prya

[QuestVba]

Bonjour,
Peut-être voir ici : https://www.developpez.net/forums/d1...plage-filtree/
Mais c'est du VBA.

[pryamani]

Merci QuestVBA,

Pouvez-vous m'expliquer SVP ?

Dans mon cas, la sélection est-ce la colonne A ?
"range" dois-je définir où cela commence et se termine ?
For each est la colonne b
If not b c'est a.value.

Code :

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

1
2
3
4
5
6
7
Sub Test()
Dim c As Range
  If TypeName(Selection) <> "Range" Then Exit Sub
  For Each c In Selection.Cells
    If Not c.EntireRow.Hidden Then c.Value = c.Value
  Next c
End Sub

merci pour votre aide (je voulais éviter une macro mais si c'est le seul moyen...

[QuestVba]

Salut,
Voilà que je reviens. Tu peux laisser tomber le premier code que j'avais trouvé. Voici un meilleur du net:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub Coller_Avec_Filtre()
 
 
ColStrt = InputBox("Entrez la lettre de la Colonne à copier :", "Colonne copiée")
If ColStrt = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
Else
 
ColEnd = InputBox("Entrez la lettre de la Colonne à coller :", "Colonne collée")
If ColEnd = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
Else
 
LineStart = InputBox("Entrez la ligne de départ :", "Ligne départ")
If LineStart = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
Else
 
LineEnd = InputBox("Entrez la ligne de fin :", "Ligne de fin")
If LineEnd = "" Then
MsgBox "Aucune donnée n'a été saisie"
Exit Sub
Else
 
 
'***************************************
 
x = LineStart
For x = LineStart To LineEnd
If Range("A" & x).Height <> 0 Then
Range(ColEnd & x).Value = Range(ColStrt & x).Value
End If
Next
 
End If
End If
End If
End If
 
End Sub