Discussion :

[Danieldu54]

Bonsoir à tous

Je bloque actuellement sur un bout de code :

Code :

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

1
2
 
ThisWorkbook.Sheets("Feuil1").Range("plage").Cells(ligne)

Donc Feuil1 représente biensur la feuille
Plage représente par exemple la plage A2:A1000 (ce sera toujours une seule colonne de large, pas plus)
et ligne représente le N° du traitement en cours (For ligne = 2 to 1000)

Je cherche à sélectionner la cellule à l'intersection de Plage et de Ligne.
Je pense bien que ça ne doit pas être grand chose mais bon ...

Merci de votre aide

Merci pour les balises, j'avais oublié

[pgz]

Bonsoir.

Je te propose

Code :

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

ThisWorkbook.Sheets("Feuil1").Range("A" & ligne)

Si tu ne connais pas la colonne, parce qu'elle change, tu peux faire aussi

Code :

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

ThisWorkbook.Sheets("Feuil1").Range("plage").cells(ligne,1)

Cordialement,

PGZ

[Danieldu54]

Merci PGZ

en fait je veux simplement selectionner la cellule en question ...
mais

Code :

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

ThisWorkbook.Sheets("Feuil1").Range("plage").Cells(ligne).select

ne fonctionne pas

[pgz]

Re,

Tu en as oublié un morceau : il manque ",1"

Tu peux aussi écrire

Code :

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

ThisWorkbook.Sheets("Feuil1").Range("plage")(ligne,1)

Mais attention : la méthode SELECT comme on le dit tous les jours ne s'utilise quavec le Corse et l'Arménien.

Cordialement,

PGZ

[casefayere]

Re,
Je pense que si c'est pour une boucle, je proposerais ceci

Code :

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

1
2
3
4
5
6
7
Dim plage As Range, cel As Range
Set plage = Range("A2:A1000 ")
For Each cel In plage
   'cel = ton code cel représente les cellules qui bouclent
   'ou
   'ton code = cel
Next cel

[Danieldu54]

Ha oui ...

Mais le code

Code :

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

ThisWorkbook.Sheets("Feuil1").Range("plage")(ligne,1)

n'est pas accepté par VBA, il doit manquer quelquechose pour pouvoir sélectionner la cellule

Merci Casefayere, mais je fais déjà une boucle qui balaye mes lignes.

Mais en fait à un moment, je souhaite mettre une cellule dans la case (ça c'est ok) et faire un copier-collage spécial afin de figer la valeur.

C'est pour ça que je cherche à selectionner la cellule

[pgz]

Re,

Tu n'as pas besoin de sélectionner pour copier-coller.
En plus copier coller, c'est intéressant si tu veux faire autre chose que copier la valeur...

On peut voir où tu en es de ton code car je suis surpris que les formules que je t'ai donnée ne marche pas.

PGZ

[Danieldu54]

Oui, voici le code en question :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Global ligne As Long
 
Sub test()
 
    For ligne = 2 To ThisWorkbook.Sheets("Feuil1").Columns(1).Find("*", , , , , xlPrevious).Row
 
    ThisWorkbook.Sheets("Feuil1").Range("plage")(ligne, 1).Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
 
    Next
 
End Sub

La copie fonctionne mais il ne me colle la valeur sur la dernière cellule selectionnée avant que je lance la macro.

[pgz]

La copie fonctionne mais il ne me colle la valeur sur la dernière cellule selectionnée avant que je lance la macro.

C'est normal, c'est ce que tu lui demandes de faire. Tu veux coller la valeur où?

PGZ

[casefayere]

à pgz, tu m'as oté les mots de mon clavier

exemple, pour coller en b2

Code :

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

    Range("b2").PasteSpecial Paste:=xlPasteValues

[Danieldu54]

Je veux juste faire un collage spécial de la valeur dans la même cellule, voici un exemple. Je précise que je veux que le traitement se fasse par balayage de ligne car j'ai d'autres opréations à faire pour chaque ligne.

[pgz]

Re,

OK. Donc tu veux supprimer la formule et garder la valeur.

Je te propose

Code :

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

1
2
3
4
5
6
For ligne = 2 To ThisWorkbook.Sheets("Feuil1").Columns(1).Find("*", , , , , xlPrevious).Row
 
     with ThisWorkbook.Sheets("Feuil1").Range("plage")(ligne, 1)
          .Formula = .Value
     End with         
    Next

mais tu peux le faire aussi sur toute la plage en une fois.
COrdialement,

PGZ

[casefayere]

Ok, j'imagine qu'au départ c'est une formule et tu ne colles que la valeur ?

Code :

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

1
2
 Sheets("Feuil1").Range("plage")(ligne, 1).Copy
    Sheets("Feuil1").Range("plage")(ligne, 1).PasteSpecial Paste:=xlPasteValues

[Danieldu54]

mille merci à vous !

Vos propositions fontionnent très bien mais je penche pour celle de Pgz car plus rapide sur une grande quantité

Je me suis peut-être mal exprimé au début dans ce que je voulais faire.
Mais le résultat est là ....

Bonne soirée à vous deux