Macro excel Fermé

Question

Bonjour,

J'ai une feuille excel, par exemple feuille1, rempli avec des nombres et des chaines de caractères. Mes donneés occupent, disons les 5 premières lignes et les 8 premières colonnes.
Ainsi mes données forment un rectangle qui va de A1 à E8.
Voilà pour ma situation de départ, maintenant je cherche à écrire une macro qui me renvoi A1:E8 dans une variable x, pour pouvoir enssuite écrire Set liste=Worksheets("feuille1").Range("x")

Quelqu'un a-t-il une idée pour écrire une macro comme ca ?

Merci

dje-dje · Answer

C'est toujours de A1 à E8?Si non, qu'est de qui fait que tu prends une ligne ou une colonne dans ta "range"a+dje-dje

tompols · Answer

Salut,

et voilà :

Sub toto()
Dim i, j
For i = 1 To 65535
If IsEmpty(Range("A" & i)) Then Exit For
Next i
For j = 1 To 255
If IsEmpty(Cells(1, j)) Then Exit For
Next j
Range(Cells(1, 1), Cells(i - 1, j - 1)).Select
End Sub

Bon, c'est fait à la va-vite mais ça doit fonctionner...

A+

Abel · Answer

Merci bcp pour le code, j'ai essayait et il marche bien. J'ai encore une petite question. Quand j'essaie d'écrire
Worksheets("Feuil1").Range(Cells(1,1),Cells(i-1,j-1)).Name="dat"
il m'indique une erreur à l'exécution. Quelqu'un sait-il pourquoi et comment le résoudre ? Merci encore

tompols · Answer

Re,ça fonctionne bien chez moi, peux-tu mettre le code en entier que je teste ?A+

Abel · Answer

Excuse moi pour ma réponse tardive. Voici le code qui pose problème

Dim i, j As Integer
For i = 1 To 65535
If IsEmpty(Worksheets("taux").Range("B" & i)) Then Exit For
Next i
For j = 1 To 256
If IsEmpty(Worksheets("taux").Cells(2, j)) Then Exit For
Next j
Worksheets("taux").Range(Cells(2, 2), Cells(i - 1, j -1)).Name="tx"
Dim Taux As Range
Set Taux = Worksheets("taux").Range(tx)

Voilà, sûrement que je me complique la vie mais bon ce que je veux en fait c'est attribuer à la variable Taux le plage Cells(2, 2):Cells(i - 1, j -1)

Voila, j'espère que ca peut t'aider. Encore merci

tompols · Answer

Et voilà :

Dim i, j As Integer 
For i = 1 To 65535 
If IsEmpty(Worksheets("taux").Range("B" & i)) Then Exit For 
Next i 
For j = 1 To 256 
If IsEmpty(Worksheets("taux").Cells(2, j)) Then Exit For 
Next j 
Worksheets("taux").Range(Cells(2, 2), Cells(i - 1, j -1)).Name="tx" 
Dim Taux As Range 
Set Taux = Worksheets("taux").Range("tx")

Voir ligne Set Taux = Worksheets("taux").Range("tx")
A+

Abel · Answer

Merci mais le problème persiste. En fait en faisant executer la macro pas à pas je vois que l'erreur provient de la ligne suivante
Worksheets("taux").Range(Cells(2, 2), Cells(i - 1, j - 1)).Name = "tx"

Il me dit: Erreur d'exécution 1004 Erreur défini par l'objet ou par l'application.

Comprends-tu pourquoi ?

Utilisateur anonyme · Answer

Bonjour,

Les variables [ i ] et [ j ] ne peuvent prendre la valeur [ 1 ] .

vous obtenez ainsi :
Worksheets("taux").Range(Cells(2, 2), Cells(0,0)).Name="tx"

cette partie [ Cells(0,0) ] ou [ Cells(1,0) ] ou [ Cells(0,1) ] n'est pas admissible.

Établir la boucle sur :

For i = 2 to ...

For j = 2 to ...

Lupin

Abel · Answer

Merci pour votre message. Le problème doit venir d'ailleur, car j'ai essayer d'écrire Worksheets("taux").Range(Cells(2, 2), Cells(i, j)).Name = "tx"et j'ai toujour le meme message d'erreur...

Abel · Answer

J'ai fait une petite erreur. Je voulais dire que j'avais essayé la ligne de code suivante :Worksheets("taux").Range(Cells(1, 1), Cells(i, j)).Name = "tx"

Utilisateur anonyme · Answer

re:est-ce que la ligne suivante fonctionne ?Worksheets("taux").Range(Cells(1, 1), Cells(3,3)).Name = "tx"chez moi c'est nickel !Lupin

Abel · Answer

Non le code que tu me propose ne marche pas chez moi...
Mais j'ai trouvé un code qui marche :
Worksheets("taux").Range(Worksheets("taux").Cells(2, 2), Worksheets("taux").Cells(i - 1, j - 1)).Name = "tx"

Merci pour ton temps

Macro excel

12 réponses

Discussions similaires