Discussion :

[bonelzez]

Bonjour à tous,

Je suis en train de travailler sur des fichiers Excel qui ont été agrémentés de macros VBA. Je n'ai (n'avais) pas de compétences en la matière mais ai passé plusieurs heures à décortiquer une macro que je trouve très utile, qui consiste à copier les données de plusieurs fichiers pour les coller dans un autre fichier qui lui sert de fichier de synthèse. Démarche donc assez courante donc et il y a beaucoup d'infos sur le net.

Néanmoins, je bloque dans l'interprétation de ces lignes. J'ai passé plusieurs heures à chercher mais je bloque !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Wtu As Worksheet
 
(...)
 
DerLigtu = Wtu.Range("A65536").End(xlUp).Row        
DerCoNtu = Wtu.Range("AA10").End(xlToLeft).Column   
DerCoLtu = Split(Cells(1, DerCoNtu).Address, "$")(1)
 
 'Wtu.Range("A" & PreLigtu & ":" & DerCoLtu & DerLigtu).Copy Wcab.Range("A" & DerLigcab)    ' Copy basic
 
 If DerLigtu > 1 Then
            Wtu.Range("A" & PreLigtu & ":" & DerCoLtu & DerLigtu).Copy

Si j'ai bien compris :

DerLigtu = Wtu.Range("A65536").End(xlUp).Row => ceci renvoie vers la première cellule non vide de la colonne A
DerCoNtu = Wtu.Range("AA10").End(xlToLeft).Column => ceci renvoie vers la première colonne non vide à partir de la cellule AA10 en balayant vrs la gauche
DerCoLtu = Split(Cells(1, DerCoNtu).Address, "$")(1) => j'ai compris que Cells() renvoie par $A$1 et que Cells.Address, $ renvoie un tableau du type A 1

Mais je bloque un peu. En quoi ce 'split' nous aide ici ? le DerCoLtu est ensuite utilisé et je ne comprends pas.

Je vous remercie grandement pour votre aide, et votre pédagogie.

[Invité]

Bonjour,
Split ne sert a rien!

[Theze]

Bonjour,

La fonction Split() est ici utilisée pour récupérer la lettre de la colonne donc voici un petit exemple ci-dessous qui va peut être t'aider à comprendre son fonctionnement :

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
 
Sub Test()
 
    Dim Tbl 'sans préciser le type, c'est un Variant par défaut qui peut recevoir plein de choses comme par exemple un tableau
    Dim Adresse As String
 
    'ici, Adresse va contenir la chaîne "$A$1"
    Adresse = Range("A1").Address
 
    'Split() retoure un tableau qui va être stocké dans la variable
    Tbl = Split(Adresse, "$")
 
    'maintenant, tu peux avoir accès au différentes valeurs où le délimiteur a été éliminé par la fonction
    MsgBox Tbl(1)
    MsgBox Tbl(2)
 
    'mais il est aussi possible de se passer d'un tableau et dans ce cas ça devient :
    MsgBox Split(Adresse, "$")(1)
    MsgBox Split(Adresse, "$")(2)
 
End Sub

Les lignes de code utilisées avec la fonction Split() que tu as posté :

Code :

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

1
2
3
4
5
6
7
8
 
DerLigtu = Wtu.Range("A65536").End(xlUp).Row
DerCoNtu = Wtu.Range("AA10").End(xlToLeft).Column
DerCoLtu = Split(Cells(1, DerCoNtu).Address, "$")(1)
 
If DerLigtu > 1 Then
 
    Wtu.Range("A" & PreLigtu & ":" & DerCoLtu & DerLigtu).Copy

peuvent être remplacées par ceci :

Code :

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

1
2
3
4
5
6
7
 
DerLigtu = Wtu.Range("A65536").End(xlUp).Row
DerCoNtu = Wtu.Range("AA10").End(xlToLeft).Column
 
If DerLigtu > 1 Then
 
    Wtu.Range(Wtu.Cells(PreLigtu, 1), Wtu.Cells(DerLigtu, DerCoNtu)).Copy

Dans ce dernier cas, la fonction Split() n'est plus utilisée !

[Invité]

dans la mesure ou on récupère la ligne et la colonne la lettre on s'en fiche un peut!

[Theze]

Salut Robert et tout le monde !

dans la mesure ou on récupère la ligne et la colonne la lettre on s'en fiche un peut!

Exactement !

[bonelzez]

Ok, je comprends mieux. A croire que ce Split n'est là que m'embrouiller.

Merci beaucoup pour l'exemple Theze, et je trouve que Wtu.Range(Wtu.Cells(PreLigtu,1), Wtu.Cells(DerLigtu,DerCoNtu))).Copy est beaucoup plus simple à comprendre.

[Invité]

Bonjour,

il faut aborder chaque problème hors de son contexte!

debug.print split("toto;titi",";")(0) retourne toto!
debug.print split("$A$1","$")(1) retourne A!
debug.print ActiveCell.Column retourne 1!
debug.print ActiveCell.Row retourne 1!
debug.print cells(ActiveCell.Row,ActiveCell.Column).address retourne $A$1!
debug.print split(cells(ActiveCell.Row,ActiveCell.Column).address,"$")(1) retourne A!
debug.print range(split(cells(ActiveCell.Row,ActiveCell.Column).address,"$")(1) & 1).address retourne $A$1!

au niveau embrouille je m'arrête là? oui dès l'instant ou tu as Row et Column!

celui qui ta donné ce code a au moins le mérite de t'avoir proposé une solution!

[bonelzez]

Merci beaucoup encore une fois, je pense avoir compris (vérification à mon prochain split() ) !