modification d'une cellule non ciblée

[seb33]

Pour ajouter une donnée référence dans un tableau (où les variables d'une meme références sont sur un colonne et non une ligne), j'utilise ceci

Private Sub CommandButton1_Click()
Range("IV1").End(xlToLeft).Offset(0, 1) = TextBox1
Unload Me
logiciel.Show
End Sub

cela me permet d'ajouter une colonne vide avec la référence client sur la 1ère ligne.

Mais, pour modifier une donnée dans une colonne référence (par exemple pour le client 'untel' je change son prénom qui est en ligne 2), comment puis-je faire pour que le changement de la listbox modifie précisément la ligne 2 de la colonne 'untel' et non de la colonne 'bidulle'????

merci d'avance

 

[seb33]

Re : modification d'une cellule non ciblée

petit up😀

 

[Banzai64]

Re : modification d'une cellule non ciblée

Bonjour
Si j'ai compris le problème

Pour être sur de la colonne il faut d'abord rechercher le nom qui est en 1ère ligne
Par exemple par Find ou Par For Each ....
et en fonction du résultat tu peux te placer où tu veux dans la colonne

 

[seb33]

Re : modification d'une cellule non ciblée

oui, j'ai peut etre pas ete assez précis:
je travaille uniquement sur USF, avec les feuilles cachés.
Su le premier onglet de l'usf, je fais un choix de réference (d'une feuille x).
les onglets suivants servent à modifier ou remplir les cellules de la colonnes en cours.

je n'ai pas encore utilisé la fonction select et donc ne sais pas m'en servir pour sélectionner la colonne par choix de référence (selectionner une colonne en donnant une cellule type B2 à l'intérieur ok, mais en donnant une référence, je ne sais pas faire).

 

[Banzai64]

Re : modification d'une cellule non ciblée

Re

Cette fois ça y est je suis noyé
Je n'arrive pas à comprendre
Si tu pouvais fournir un fichier dans les conditions en usage sur ce site

Parce que là je suis out

 

[seb33]

Re : modification d'une cellule non ciblée

disons que mon fichier fait +1Mo que de formule, donc pour enlever ce qui ne sert à rien pour l'exemple 😱

Explication:
je suis en train de me faire une plateforme 'logiciel' pour généré des etudes (devis).

Pour cela, j'ai mon USF qui a plusieur onglet dont le premier est le choix des références (numéro de devis ou d'étude).

les onglets suivants doivent récapituler les éléments de la colonne voulu et me permettre de modifier les données.

ma question est: comment je fais pour activer une colonne par rapport à une référence choisi dans mon 1er onglet et comment pouvoir modifier des éléments de cette colonne et uniquement de cette colonne?

si je me suis pas assez bien exprimé, j'essayerai de nettoyer mon excel pour l'envoyer...

 

[Banzai64]

Re : modification d'une cellule non ciblée

Re

Bien j'espère avoir compris

Comme tu as ta ref et tu sais sur quelle feuille est stockée les données

Sub test()
Dim Cel As Range
Dim Ref As String
Dim Trouve As Boolean
Dim Colonne As Integer

  Ref = ComboBox1 ' Ou d'ailleurs
  With Sheets("Nom_de_la_Feuille")
    For Each Cel In .Range("A1", .Range("IV1").End(xlToLeft))
      If Cel = Ref Then
        Trouve = True
        Exit For
      End If
    Next Cel
  End With
  If Trouve = True Then
    Colonne = Cel.Column           [COLOR="Red"]' La voilà cette colonne[/COLOR]  
Else
    MsgBox "Référence inconnue"
  End If

End Sub

 

[seb33]

Re : modification d'une cellule non ciblée

En gros, sur un onglet x, j'ai:
la colonne à définir = colonne possédant le nom reference en ligne 1 (par exemple la colonne C)
listbox1=cellule ligne 4
je dois mettre:

Sub test()
Dim Cel As Range
Dim Ref As String
Dim Trouve As Boolean
Dim Colonne As Integer

Ref = listbox1 ' Ou d'ailleurs
With Sheets("enregistrement")
For Each Cel In .Range("A1", .Range("IV1").End(xlToLeft))
If Cel = Ref Then
Trouve = True
Exit For
End If
Next Cel
End With
If Trouve = True Then
Colonne = Cel.Column ' La voilà cette colonne
Else
???
End If

End Sub

😕 ca ressemble à de la BD et j'y comprend rien à ces trucs.

 

[seb33]

Re : modification d'une cellule non ciblée

je viens de nettoyer un peu le fichier pour descendreà environ 500Ko.

voici le lien: ici

en gros, lorsque tu ouvres le fichier, tu vas dans l'onglet introduction et tu choisi une référence, tout sauf nouveau.

ensuite, tu vas sur l'onglet 2, client 1 (Uclient1=usf)
tu fais modifier et là tu entres tes données.

disons que le nom corresponde à la ligne 2, le prenom à la ligne 3...

l'objectif est qu'en modifiant une case (txtbox_change), la nouvelle donnée ayant directement sur la feuille 'enregistrement' à la bonne colonne (en fonction de la référence choisie initialement) et sur la bonne ligne.