XL 2010 Fonction resize

[chris66000]

Bonjour
j'utilise resize....
ActiveCell.Resize(1, 1).Select

mais je voudrais remplacer le 1 de colonne par la valeur d'une cellule qui varie a chaque fois..
je n'ai pas trouvé si quelqu'un a une idéee...je suis preneur
Merci

 

[vgendron]

bonjour..
bah.. tu remplaces par le nom de la cellule..
si c'est la cellule A1
activecell.resize(1,range("A1")).select

 

[Phil69970]

Bonjour @chris66000
Edit re Bonjour Vincent 😉

Ceci fonctionne sans problème chez moi

x = 10
y = 5
ActiveCell.Resize(x, y).Select
OU bien
x = [G1]
y = [G2]
ActiveCell.Resize(x, y).Select
OU bien
ActiveCell.Resize([G1], [G2]).Select

Évidement Il y a une valeur en G1 et en G2

Merci de ton retour

@Phil69970

 

[chris66000]

Bonjour,
j'essaye des que possible et te tiens au courant
merci de ta rapidité

 

[chris66000]

Bonjour, cela fonctionne parfaitement mais j'ose te poser une nouvelle question
comment selectionner cette plage pour pouvoir ecrire dedans
merci

 

[vgendron]

pas besoin de selectionner une plage pour écrire dedans
ex:
range("A10")="texte à écrire"
range("B10")=10

maintenant, comme tu sembles vouloir selectionner une plage, et pas seulement une cellule, il faut je pense que tu postes maintenant un fichier exemple en expliquant ce que tu souhaites ecrire , à quel endroit, à quelle condition...

 

[chris66000]

dans mon exemple apres ma recherche avec resize pour laquelle tu m'a aidé
j'obtiens une selection H11:I11
c'est dans ces cases que je veux recopier le nom d'un locataire qui s'appelle "Locataire "

 

[vgendron]

hmm.. ca sent la cellule fusionnée...

with ActiveCell.Resize(1, range("A1"))
.merge
.value="Locataire"
end with


mais encore une fois.. sans fichier exemple: on ne peut qu'essayer de deviner.. et la.. ma boule de cristal se ternit...

 

[chris66000]

re,

peux tu me dire pourquoi cette fonction ne fonctionne pas
Sheets("location").Activate
Dim Cellule As Range
ValeurCherchee = Range("Location!b6").Value
Range("c3:bb3").Find(what:=ValeurCherchee, LookIn:=xlValue, lookat:=xlWhole).Select

If Not Cellule Is Nothing Then Range(Cellule, Cellule(1, 7)).Select

je cherche mais sans succes

 

[chris66000]

hmm.. ca sent la cellule fusionnée...

with ActiveCell.Resize(1, range("A1"))
.merge
.value="Locataire"
end with


mais encore une fois.. sans fichier exemple: on ne peut qu'essayer de deviner.. et la.. ma boule de cristal se ternit...

je vais essayer peux tu me dire pourquoi la ligne suivante ne fonctionne pas

Dim Cellule As Range
ValeurCherchee = Range("Location!b6").Value
Range("C3:bb3").Select
Range("c3:bb3").Find(what:=ValeurCherchee, LookIn:=xlValue, lookat:=xlWhole).Select

If Not Cellule Is Nothing Then Range(Cellule, Cellule(1, 7)).Select
Selection = ActiveCell

merci

 

[Dranreb]

Bonjour.

peux tu me dire pourquoi la ligne suivante ne fonctionne pas

Parce que la variable Cellule n'a pas été initialisée par un Set. Elle est donc toujours Nothing.

 

[chris66000]

je vais essayer peux tu me dire pourquoi la ligne suivante ne fonctionne pas

Dim Cellule As Range
ValeurCherchee = Range("Location!b6").Value
Range("C3:bb3").Select
Range("c3:bb3").Find(what:=ValeurCherchee, LookIn:=xlValue, lookat:=xlWhole).Select

If Not Cellule Is Nothing Then Range(Cellule, Cellule(1, 7)).Select
Selection = ActiveCell

merci

J'ai modifié
Set Cellule = Range("c3")
ValeurCherchee = Range("Location!b6").Value
Range("C3:bb3").Select
Set Cellule = Range("c3:bb3").Find(what:=ValeurCherchee, LookIn:=x1Value, lookat:=xlWhole).Select

If Not Cellule Is Nothing Then Range(Cellule, Cellule(1, 7)).Select
Selection = ActiveCell
mais cela ne fonctionne pas ....tjrs la meme erreur
je suis preneur d'une explication désolé de t'embeter mais suis un amateur

 

[vgendron]

x1Value==> xlValue

 

[chris66000]

x1Value==> xlValue

c 'est un I ou 1

 

[chris66000]

c 'est un I ou 1

l'un ou l'autre meme resultat comment declarer Set cellule