Autres Affecter Range avec variable

[FOUQUET Yves]

Bonjour,

Quelqu'un peut m'expliquer comment dans cette expression je peux changer 9 par une variable "j" integerj
Set Rng = Ws.Range("D9 :E" & Ws.[D4000].End(xlUp).Row)

Merci d'avance.

 

[job75]

Bonjour FOUQUET Yves,

Il faut concaténer j en l'encadrant par des "&" :

Set Rng = Ws.Range("D" & j & ":E" & Ws.[D4000].End(xlUp).Row)

A+

 

[JBARBE]

Bonjour à tous toutes,
Peut être ceci !
dim j as integer
j = 9
Set Rng = Ws.Range("Dj :E" & Ws.[D4000].End(xlUp).Row)
Bonne journée !
Bonjour job ( pas vu )

 

[FOUQUET Yves]

Non cela ne passe pas, dans le premier cas résultat incohérent dans le deuxième erreur!

 

[JBARBE]

Re,
dim j as integer
j = 9
Set Rng = Ws.Range("D& j &:E" & Ws.[D4000].End(xlUp).Row)
ou
dim j as range
j = 9
Set Rng = Ws.Range("Dj :E" & Ws.[D4000].End(xlUp).Row)

 

[job75]

Non cela ne passe pas, dans le premier cas résultat incohérent

C'est vous qui n'êtes pas cohérent, il faut bien sûr :

- que les variables j et Ws soient définies

- qu'il y ait des valeurs en D9 (si j = 9) ou cellules suivantes.

PS : je suis très surpris par tes codes JBARBE

 

[JBARBE]

PS : je suis très surpris par tes codes JBARBE

Sans fichier il est difficile de donner une réponse positive !
Néanmoins job tes solutions sont très souvent positivent sur ce forum et je m'incline devant tes capacités sur Excel !
Exemple :

XL 2010 - Msgbox s'affiche deux fois

Bonjour le forum Ci dessous un code que je positionne dans un textbox2 Private Sub TextBox2_Change() Superieur_a_10_places End Sub Sub Superieur_a_10_places() If Me.ComboBox2 = "Place Cinéma Perigueux" Then If Me.TextBox2 > 10 Then MsgBox "RESTREINT A 10 PLACES MAXIMUN", vbOKOnly Me.TextBox2...

www.excel-downloads.com

Bonne journée !

 

[job75]

Sans fichier il est difficile de donner une réponse positive !

Non, il est facile de tester sur un document vierge.

 

[JBARBE]

Non, il est facile de tester sur un document vierge.

Hélas, ce que je ne fais jamais !
Mais j'aime ED !
En ce qui concerne les solutions, je me contente de ma petite formation d'Excel apprises avec de vieux bouquins et de l'indispensable Google !
Bon, il y a du soleil (contrairement à Roland Garros) dehors et je quitte le forum pour Quelques heures !
Bonne journée !

 

[FOUQUET Yves]

Oui, je sais rien n'est très accademique chez moi. Je fais cela en amateur. Mais bon pour l'instant ça fonctionne... lol
Merci les gars pour votre aide . J'en prends note mais pour l'instant j'ai contourné le problème . Bonne soirée.