Controler plusieurs cellules

[ascal44]

Bonjour , je joint un fichier sur lequel il faut controler 3 cellules pour afficher dans des textboxs les valeures correspondantes.

En vous remerciant par avance

 

[mutzik]

Re : Controler plusieurs cellules

bonjour,

oublie ton .find et mets tout simplement

TextBox8 = Range("D9").Offset(ListBox1.ListIndex, 20)

 

[ascal44]

Re : Controler plusieurs cellules

Merci pour votre aide cela fonctionne

 

[ascal44]

Re : Controler plusieurs cellules

C'est encore moi ; je pensais pouvoir me débrouiller seul :

Je joint à nouveau le fichier avec un bouton de saisie.
Je voudrais inscrire les modifications du Textbox 8 dans la ligne sélectionnées de la feuille origine.

 

[Pierrot93]

Re : Controler plusieurs cellules

Bonjour Ascal, Bertrand

essaye peut être ainsi :

With Sheets("origine")
    .Range("W" & .ActiveCell.Row) = TextBox8.Value
End With

bonne journée
@+

 

[ascal44]

Re : Controler plusieurs cellules

Bonjour Pierrot ,
votre code me met une erreur 😛ropriété ou méthode non gérée par cet objet

Comment remédier à ce problème

 

[Pierrot93]

Re : Controler plusieurs cellules

Re

arrf, oui désolé, essaye ainsi, si la feuille "origine" est active :

Range("W" & ActiveCell.Row) = TextBox8.Value

sinon il y a lieu de l'activer au préalable :

Sheets("origine").Activate

bon après midi
@+

 

[ascal44]

Re : Controler plusieurs cellules

C'est presque ça ,
le problème c'est que la modification du textbox8 s'inscrit à chaque fois dans la cellule W20 alors qu'il faudrait la remplacer dans sé cellule d'origine.

 

[Pierrot93]

Re : Controler plusieurs cellules

Re

je sais pas, tu disais :

Je voudrais inscrire les modifications du Textbox 8 dans la ligne sélectionnées de la feuille origine

et dans ton fichier :

With Sheets("origine")
' lorsque je saisie je voudrais remplacer par la valeure du textbox8 en colonne W de la ligne sélectionnée , j'ai essayé ceci :
'Range("W") = TextBox8.Value ' place
End With

c'est laquelle la cellule d'origine ???

@+

 

[Pierrot93]

Re : Controler plusieurs cellules

Re,

j'ai peut être compris...essaye peut être ainsi...

Private Sub CommandButton1_Click()
If ListBox1.ListIndex <> -1 Then Sheets("origine").Range("W" & ListBox1.ListIndex + 9) = TextBox8.Value
End Sub

 

[ascal44]

Re : Controler plusieurs cellules

Bravo cela semble fonctionner , je vais l'adapter sur mon classeur.

Vous êtes mon sauveur