Comprendre et utiliser la fonction SPLIT avec CELLS().ADDRESS

Version imprimable

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:

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. :ptdr:

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

21/03/2017, 19h07
Invité

Bonjour,
Split ne sert a rien!

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:

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:

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:

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 !

21/03/2017, 20h49
Invité

dans la mesure ou on récupère la ligne et la colonne la lettre on s'en fiche un peut!
22/03/2017, 07h28
Theze

Salut Robert et tout le monde !

Citation:

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

Exactement !
22/03/2017, 11h33
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.
22/03/2017, 11h56
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!
22/03/2017, 15h21
bonelzez

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