Formule ou macro Zone de texte vers cellule
Petit pb, comment renvoyer le texte d'une zone de texte dans une cellule.
Autrement dis, dès que je tape "azerty" dans une zone de texte Feuille 1 le mot se recopie directement en cellule A1 en feuille 2 du meme classeur
Merci
bonjour, je t'envoie une exemple:
https://www.excel-pratique.com/~files/doc2/qAzSWClasseur1.xls
j'ai ajouté un bouton sous le textbox et mis un code quand on clique dessus
Private Sub CommandButton1_Click()
Sheets("Feuil2").Range("A1").Value = TextBox1.Text
End Subdans le code de la feuille 1
Merci..... tout fonctionne
Par contre maintenant je recherche comment incrémenter a chaque fois le resultats sur une nouvelle ligne (une formule recherche vide un truc comme ca)
Mais l'incrémentation ne se fait que si la meme valeur n'est pas déja écrite dans la colonne
=si(la valeur existe sur la colonne; si vrai : ne rien faire ; si faux :l'ajouter sur une nouvelle ligne)
et tout ca pour chaque colonne sachant qu'une quinzaine de valeur sont copier
le + simple serait d'envoyer mon fichier excel mais il fait plus de 100ko
Bonjour,
Si j'ai bien compris ton souci, remplace le code de MAth par celui-ci :
Private Sub CommandButton1_Click()
Dim dlig As Integer
Dim a as byte
On Error Resume Next
a = Application.WorksheetFunction.Match(TextBox1.Text, Sheets("Feuil2").Range("A1:A" & Sheets("Feuil2").Range("A65536").End(xlUp).Row), 0)
If a > 0 Then End
dlig = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
Sheets("Feuil2").Range("A" & dlig).Value = TextBox1.Text
End SubAmicalement
Dan