Discussion :

[dubdub22]

Bonjour,
Je cherche une formule VBA pour l’incorporer dans une macro que j’ai.
Cette formule je voudrais qu’elle me recopie une plage de cellules, exemple de « AE17 à AE38 », dans un autre classeur, mais sans tenir compte des cellules qui ne contiennent que des formules.

En clair, si de « AE17 à AE20 » il y a un résultat dans les cellules, elle les colle dans l’autre classeur.
Et pour le reste des cellules allant de « AE21 à AE38 », elle les ignore, s'il n'y a que les formules.

Actuellement lorsque je recopie cette plage, la macro me colle la sélection dans la colonne « F » d’un autre classeur, par le biais de cette formule : Range("F65536").End(xlUp)(2).Select , cela fonctionne, sauf que le collage n’est pas en continu, car les cellules ne contenant pas de valeurs, mais uniquement des formules, sont comptées quand même en cellules pleines du fait qu’elles contiennent une formule, et, me crée un trou entre deux collages.
Exemple :
1---------1
2---------2
3---------3
----------4
----------
4
Première colonne = 1 , 2 , 3, = le premier collage, 4 = le deuxième collage, et le blanc entre deux c’est du aux cellules sans résultats, mais contenant uniquement une formule, et qui sont comptées comme pleines.

Deuxième colonne = les deux collages comme je voudrai qu’ils soient.

Voici le code dont je me sers actuellement.

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
'Je copie la plage des Désignations'
 
Range("AE17:AE38").Select
    Application.CutCopyMode = False
    Selection.Copy 
 
'Je clic sur le lien qui va vers la feuille "SuiviClient"'
 
    Range("J8:J9").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
 
'Je colle la sélection en colonne "F"'
 
    Range("F65536").End(xlUp)(2).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

Les formules se trouvant dans les cellules sont des formules « RechercheV »

Quelqu’un aurait-il une solution a ce problème ?

Pour info j’utilise Excel d'Office 2007

Merci d’avance pour votre aide

Cordialement

Dubdub

[Daniel.C]

Bonsoir,

Un exemple à adapter pour copier les valeurs de la colonne F de Feuil1 dans la colonne A de Feuil2 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CopierCollerValeurs()
    Dim c As Range, Plage As Range, Ligne As Long
    On Error Resume Next
    Set Plage = Sheets("Feuil1").Columns(6).SpecialCells(xlCellTypeConstants)
    If Err.Number <> 0 Then Exit Sub
    On Error GoTo 0
    With Sheets("Feuil2")
        For Each c In Plage
            Ligne = Ligne + 1
            .Cells(Ligne, 1).Value = c.Value
        Next c
    End With
End Sub

[dubdub22]

Bonsoir Daniel,

Merci tout d'abord de vous être penché sur mon problème.

J'ai un petit souci avec votre code, en effet je ne suis pas très expert en programmation, je suis capable de faire une macro et d'y ajouter un morceau de code, mais là je plante.

Vous serait-il possible de m'explquer ou je dois placer ce code, avant le code macro que j'ai fait, dans ThisWorkbook, ou encore dans la feuille !


Je vous remercie d'avance de votre aide

Cordialement
Dubdub

[Daniel.C]

J'ai modifié le code. Tu mets la macro dans un module standard. Tu n'as pas besoin de lien hypertexte. La macro récupère les cellules contenant des valeurs dans la plage de "Feuil1" (à modifier)et les écrit sur la feuille "Feuil2" (à modifier) en colonne F à la suite des données déjà existantes.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CopierCollerValeurs()
    Dim c As Range, Plage As Range, Ligne As Long
    On Error Resume Next
    Set Plage = Sheets("Feuil1").[AE17:AE38].SpecialCells(xlCellTypeConstants)
    If Err.Number <> 0 Then Exit Sub
    On Error GoTo 0
    With Sheets("Feuil2")
        For Each c In Plage
            Ligne = .Cells(.Rows.Count, 6).End(xlUp).Row + 1
            .Cells(Ligne, 1).Value = c.Value
        Next c
    End With
End Sub