Autres Affecter Range avec variable

job75

XLDnaute Barbatruc

• 5 Juin 2019

• #2

Bonjour FOUQUET Yves,

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

VB:

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

A+

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 5 Juin 2019

• #3

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 )

 

Vote positif 0 Vote négatif

F

FOUQUET Yves

XLDnaute Occasionnel

• 5 Juin 2019

• #4

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

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 5 Juin 2019

• #5

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)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Juin 2019

• #6

FOUQUET Yves à dit:

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

Cliquez pour agrandir...

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 😵

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 5 Juin 2019

• #7

job75 à dit:

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

Cliquez pour agrandir...

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 !

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Juin 2019

• #8

JBARBE à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 5 Juin 2019

• #9

job75 à dit:

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

Cliquez pour agrandir...

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 !

 

Vote positif 0 Vote négatif

F

FOUQUET Yves

XLDnaute Occasionnel

• 5 Juin 2019

• #10

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.

 

Vote positif 0 Vote négatif