Discussion :

[mythx76]

Bonjour à tous,

Je débute sur VBA et je n'ai pas trouvé de problème identique sur ce forum (A priori)
J'ai pour but de coder la fonction "unique".

Je cherche à faire une fonction "Recopie" de façon universelle qui recopie une plage dans une autre, en débutant dans la recopie dans la plage sous la cellule appellante. J'ai un problème avec la fonction Copy de VBA.
J'ai essayé 3 façons :
1) recopie à la mano avec un for each : marche, mais c'est moche et "pas efficace"
2) recopie la plage (variable) grâce à la fonction copy : ne marche pas
3) recopie la plage (entrée manuellement) grâce à la fonction copy : ne marche tjs pas

Ce qui me bute, c'est que dans une procédure "Sub" les 3 techniques marchent... Je reste quoi. Des explications? Soyez Constructif svp ! :-)
Si jamais vous voyez le problème, pourriez-vous m'indiquer comment corriger mon code (version 2). ) svp ?
Voici le 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
30
31
32
' Recopie une plage (titre dans la case d'appel puis les valeur) à partir de la case qui appelle la fonction
Function Recopie3(plage As Range) As String
 
' Variables
Dim cellule As Range
Dim ligneCaller As Integer
Dim colonneCaller As Integer
Dim i As Integer: i = 1
 
' Corps de la fonction
Set cellule = Application.Caller
ligneCaller = cellule.Row
colonneCaller = cellule.Column
 
' Version Disgrâcieuse qui marche
For Each cellule In plage
    'MsgBox (" i = " & i & " valeur du résultat " & cellule.Value)
    Cells(ligneCaller + i, colonneCaller).Value = cellule.Value
    i = i + 1
Next cellule
 
' Détail
Recopie3 = "Titre"
 
' Problème et qui n'effectue pas le taff 
plage.Copy Range("H15")
MsgBox ("Clean")
 
' Code qui ne marche pas non plus... 
Range("A8:B11").Copy Range("I15")
 
End Function

[Philippe Tulliez]

Bonjour,

Je débute sur VBA et je n'ai pas trouvé de problème identique sur ce forum (A priori)

Vous n'avez sans doute pas bien cherché car c'est une question récurrente sur ce forum.

Pour vous apporter une réponse pertinente, il faudrait savoir exactement ce que vous voulez réaliser comme copie et quelles sont les plages sources et cibles (Plages classiques ou tableaux structurés (ListObject)). Merci de préciser la nature des plages "source" et "cible"
Le collage doit être en valeur seulement ou bien Format, Formules, etc.

[mythx76]

Je vous remerice de votre réponse, et j'avais l'impression que les questions ne couvraient pas tout à fait mon cas, car je travaille dans une fonction et que j'avais cru comprendre qu'une fonction ne pouvait seulement modifier la case appelante de la fonction.

Je vous avoue ne pas savoir réellement la différence entre "plages classiques" et "tableaux structurés".
Je travaille en VBA depuis vendredi midi. :-/

L'usage n'est pour l'instant que des données d'une colonne vers "au pire" une autre feuille (possiblement d'une feuille différente), mais tout en restant dans le même classeur.
La mise en forme m'est absolument inutile haha, qui est déjà traités par des macros automatiques. Toutefois à terme, pouvoir copier des formules de la plage de cellules, ce serait cool.

Merci à vous pour votre réactivité !
Bien à vous,

[mythx76]

Je plus inquiétant, c'est que mon code marche dans une procédure, mais pas dans une fonction, alors que l'alternative 1) fonction dans une fonction.

Je ne comprends pas pourquoi.
Ce matin j'ai refait des tests archi simple :

- Recopier affiche la chaîne mais n'affecte pas le tableau
- Copie & copie2 marchent très bien...

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
Function Recopier(plage As Range) As String
 
Recopier = "test"
Range("A1:C3").Copy ActiveSheet.Range("F5")
 
End Function
 
Sub copie()
 
Range("A1:C3").Copy ActiveSheet.Range("F5")
 
End Sub
 
 
Sub copie2()
Dim Recopie As Range
 
Set Recopie = Range("A1:C3")
Recopie.Copy Range("E5")
End Sub

[Philippe Tulliez]

Bonjour,
Si vous expliquiez clairement ce que vous voulez faire ce serait plus simple
Que ce sot une procédure "Fonction" ou une "Sub", elle peuvent effectuer le même travail. La première peut être utilisée comme une sub ou comme une fonction on peut alors en récupérer une valeur

En revanche, il est impossible d'utiliser une fonction personnalisée utilisable comme une fonction classique dans excel si l'on effectue une opération telle qu'une copie

[mythx76]

Bonjour,

Merci pour votre réponse. À terme, j'aimerais recoder la fonction "unique" et "filter"
J'aimerais faire une fonction qui prend en argument une plage (par exemple une colonne) et qui recopie cette plage sous la case qui appelle la fonction (même classeur, même feuille).

On ne peut pas utiliser copy dans une fonction personnalisée ? Comment cela ce fait-il ?
Je suis donc obligé de parcourir la colonne et recopier les valeurs à la main pour faire ma fonction personnalisée ?

[aziz1015]

Bonjour,

Merci pour votre réponse. À terme, j'aimerais recoder la fonction "unique" et "filter"
J'aimerais faire une fonction qui prend en argument une plage (par exemple une colonne) et qui recopie cette plage sous la case qui appelle la fonction (même classeur, même feuille).

On ne peut pas utiliser copy dans une fonction personnalisée ? Comment cela ce fait-il ?
Je suis donc obligé de parcourir la colonne et recopier les valeurs à la main pour faire ma fonction personnalisée ?

Bonjour,


Je n'arrive vraiment pas à vous comprendre.

Pourquoi voulez-vous recoder des fonctions existantes ? Expliquez clairement ce que vous voulez faire sur excel, et vous auriez une aide comme l'a dit Philippe ...

Pourriez-vous expliquer seulement ce que vous aimeriez faire sur Excel ? Essayez (comme exemple) comme-ceci :

1 - Je filtre sur ...
2-je copie ma plage et je le colle ...

Bien cordialement

[mythx76]

car la fonction n'existe pas sur office, elle existe sur microsoft 365, mais flemme de payer pour ça.

Je veux copier une colonne A feuille A sur une colonne A feuille B et supprimer les doublons dans B tout en restant dynamique entre la colonne A et la colonne B pour permettre la MAJ des données.

Supprimer les doublons, il y a le bouton excel
Faire une plage dynamique, c'est facile et documenté avec Excel.

Faire les deux en même temps ... jsp. Du coup je voulais créer une fonction unique(plage) non disponible sur office

[Philippe Tulliez]

Bonjour,

J'aimerais faire une fonction qui prend en argument une plage (par exemple une colonne) et qui recopie cette plage sous la case qui appelle la fonction (même classeur, même feuille).

Désolé mais je ne comprends ce que vous écrivez

La méthode Copy fait exactement ce que vous souhaitez faire
Exemple
Ici on copie la plage A2:F16 de la feuille nommée Dossier vers la cellule A5 de la feuille nommée Cible et les deux feuilles se trouvent dans le classeur où se trouve le code VBA (ThisWorkbook)

Code :

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

1
2
3
4
5
Sub t()
  With ThisWorkbook
  .Worksheets("Dossier").Range("A2:F16").Copy Destination:=.Worksheets("Cible").Range("A5")
  End With
End Sub

Si vous souhaitez en faire une fonction générique

Code :

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

1
2
3
Function CopyRange(RngSource As Range, rngTarget As Range)
  RngSource.Copy rngTarget
End Function

Que l'on peut invoquer ainsi

Code :

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

1
2
3
4
5
Sub t()
  With ThisWorkbook
   CopyRange .Worksheets("Dossier").Range("A2:F16"), .Worksheets("Cible").Range("A5")
  End With
End Sub

Vous devriez vous intéresser aux tableaux structurés bien plus simple à manier

On ne peut pas utiliser copy dans une fonction personnalisée ? Comment cela ce fait-il ?
Je suis donc obligé de parcourir la colonne et recopier les valeurs à la main pour faire ma fonction personnalisée ?

Une fonction personnalisée ou personnelle est une fonction que l'on peut utiliser directement dans excel comme une fonction native d'excel

Un peu de lecture
Les fonctions personnelles dans Excel
Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)

[mythx76]

C'est bien tout le problème : sur mon excel la fonction CopyRange(plage1; plage2) ne fonctionnne pas

Par contre l'appel à la macro fonctionne et produit le résultat je ne comprends pas.
J'aimerais faire un appel à une fonction, je trouve plus pratique de pouvoir appeller une fonction et sélectionner la plage plutôt que de devoir constamment changer ma macro

[aziz1015]

C'est bien tout le problème : sur mon excel la fonction CopyRange(plage1; plage2) ne fonctionnne pas

Si elle ne fonctionne pas, c'est que vous l'écrivez mal ...

Vous ne faites aucun adressage ...

Code :

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

1
2
3
4
5
 
 
'Il faut préciser d'où vient les cellules que vous voulez utiliser, il y a des milliers de cellules (Range) et d'onglets (Worksheets) dans un classeur Excel
 
Thiworkbook.worksheets("Nom de l'onglet").Range("A2:C4").copy   Thiworkbook.worksheets("Nom de l'onglet").Range("D5")

Bien cordialement,

[aziz1015]

Par contre l'appel à la macro fonctionne et produit le résultat je ne comprends pas.
J'aimerais faire un appel à une fonction, je trouve plus pratique de pouvoir appeller une fonction et sélectionner la plage plutôt que de devoir constamment changer ma macro

Je commence à croire que vous ne voulez pas vraiment de l'aide. On vous demande simplement d'exprimer votre idée.

D'ailleurs quel est l'intérêt de sélectionner à chaque fois une plage à la main ? N'y a t-il pas un moyen de sélectionner cette plage dans le code ? Un mot clé ? Un numéro de colonne ? Un filtre ?

Soit vous savez coder et vous le faites vous mêmes, soit vous expliquez clairement ce que vous voulez faire et pourquoi pour que nous puissions vous aider ...

[mythx76]

Cher Aziz,

La fonction CopyRange marche dans la procédure, mais pas de façon brute.
Copy marche dans une procédure, de façon brute, mais pas dans une fonction que l'on appel directement.

Le problème c'est que quand je vais vouloir faire du dynamique, j'ai besoin d'une fonction à appeler et non d'une macro "rigide"

[mythx76]

J'ai besoin d'aide. je vais m'exprimer

[mythx76]

Je veux copier une colonne A feuille A sur une colonne A feuille B et supprimer les doublons dans B tout en restant dynamique entre la colonne A et la colonne B pour permettre la MAJ des données.

Supprimer les doublons, il y a le bouton excel.
Faire une plage dynamique, c'est facile et documenté avec Excel.

Faire les deux en même temps ...
Mon idée est de faire "=unique ( plages dynamique )" dans mon tableur, ce que je ne peut pas faire une macro "unique"?

Or quand j'appelle frontalement (depuis mon tableur) une fonction qui contient Copy() la copie n'est pas faite, alors qu'une routine marche.
Je cherche juste à comprendre pourquoi cela ne fonctionne pas avec la fonction "CopieRange" insérée frontalement dans mon tableur

L'appel =CopyRange("A1:C3"; "E5") ne copie rien.

[mythx76]

Justement j'aimerais que la sélection reste générique pour pouvoir être ré-utilisée.
D'où mon besoin d'une "function", mais peut-etre que je me trompe.

[aziz1015]

Justement j'aimerais que la sélection reste générique pour pouvoir être ré-utilisée.
D'où mon besoin d'une "function", mais peut-etre que je me trompe.

Je ne pense pas qu'on est obligatoirement besoin d'une fonction juste pour ça ! On peut simplement déterminer à chaque fois le nouveau nombre de lignes de la plage à sélectionner.

Enfin, c'est pour ça que je pense qu'il faut simplement expliquer ce que tu veux ... Tu peux aussi mettre un classeur Test dans le pire des cas.

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
 
 
'Un exemple
 
    Dim plage_s As Range
    Dim plage_c As Range
 
'SI tu es sûre que tes données sont toujours en A:C sinon, il faudrait simplement choisir la plage dynamiquement ...     
    D_ligne = ThisWorkbook.Worksheets("FeuilleA").Range("A" & Rows.Count).End(xlUp).Row
 
 
    Set plage_s = ThisWorkbook.Worksheets("FeuilleA").Range("A1:C" & D_ligne)
 
    'j'efface les données déjà présentes dans la feuille B
    ThisWorkbook.Worksheets("FeuilleB").Range("A1:C3000").ClearContents
    Set plage_c = ThisWorkbook.Worksheets("FeuilleB").Range("A1:C" & D_ligne)
 
    plage_c = plage_s
    plage_c.RemoveDuplicates Columns:=Array(1, plage_s.Columns.Count), Header:=xlYes

[Philippe Tulliez]

Bonjour,

Je veux copier une colonne A feuille A sur une colonne A feuille B et supprimer les doublons dans B tout en restant dynamique entre la colonne A et la colonne B pour permettre la MAJ des données.

Bonjour,
Si vous souhaitez copier la colonne A, d'une plage de données en supprimant les doublons, vous pouvez utiliser la méthode AdvancedFilter (filtre avancé d'excel) de l'objet Range, c'est une ligne d'instruction

Exemple

Code :

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

1
2
3
4
5
6
Function CopyUniqueRange(areaSource As Range, areaTarget As Range) As Range
  areaTarget.Value = areaSource.Cells(1, 1).Value  ' Ecrit le titre de la colonne
  ' Exporte les données sans doublons
  areaSource.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=areaTarget, Unique:=True
  Set CopyUniqueRange = areaTarget.CurrentRegion
End Function

Exemple d'une procédure qui l'invoque

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub t()
  Dim rng As Range
  Dim rngColumn As Range
  Set rng = ThisWorkbook.Worksheets("TimeSheet").Range("A11:A161").CurrentRegion
  With rng
   Set rngColumn = .Resize(.Rows.Count) ' Redimensionne la plage pour la colonne 1
  End With
  Set rng = CopyUniqueRange(rngColumn, ThisWorkbook.Worksheets("Cible").Range("B5"))
  MsgBox "Adresse de la plage copiée : " & rng.Address(External:=True)
  Set rng = Nothing:  Set rngColumn = Nothing
End Sub

Pour en savoir plus, lire ce tutoriel Les filtres avancés ou élaborés dans Excel

[mythx76]

Merci à tous les deux pour votre aide.
Je vais regarder votre travail et faire de la documentation pour comprendre les subtilités !

Il est important pour moi de bien tout comprendre pour apprendre et non copier-coller bêtement !

Bien à vous,

[mythx76]

Merci beaucoup pour vos réponses. AdvandedFilter convient très très bien ! haha

Philippe,
Une choses que je ne comprends pas très bien. Pourquoi faire resize alors que currentregion détecte déjà la tableau "automatiquement" ? Pourrais-je avoir quelques détails du pourquoi du comment ?

Les affectations finales ont juste pour but de libérer la mémoire allouée?

bien à vous,