Récupérer les données EXCEL sur FORMULAIRE
Bonjour,
j'ai créée un formulaire, j'ai un tableau Excel avec des tarifs.
je voudrais que les utilisateurs puissent :
en cochant une case option que le tarif s'affiche automatiquement (tableau excel) qu'en mettant une date, mon formulaire affiche le bon tarif, en mettant le pays qu'il affiche la TVA etc...
Cela est-il possible en faisant du VBA que je récupère mes données EXCEL sur mon formulaire ?
Merci d'avance pour votre contribution, je sais le faire de WORD à EXCEL mais pas d'EXCEL sur FORMULAIRE.
:lol:
tableur EXCEL vers Formulaire EXCEL
Bonjour,
merci de votre réponse, je vais essayer d'être plus claire. :mouarf:
Il s'agit d'un userform en effet, j'ai un tableau excel avec mes tarifs, et j'ai un userform.
Je voudrais que les tarifs que j'ai dans mon tableau EXCEL, arrive sur mon Userform.
Mon adhérent doit saisir le nom de sa société et en fonction de la date d'adhésion et de son CA, il puisse calculer le tarif de son abonnement.
Merci de me dire si c'est possible en VBA ou autres....8-)
désolée de ne pas être plus claire, car je n'ai pas forcément le même language. 8-)
récupérer données EXCEL sur FORMULAIRE USERFORM
Bonjour,
j'ai un petit souci, pouvez-vous m'aider SVP;);)
J'ai un message d'erreur qui me demande un with end ?
je ne comprends pas.
Merci de me dire comment faire pour qu'il aille chercher la bonne colonne en fonction du mois de l'année !
je n'y arrive pas.
désolée mais je suis une vraie débutante.
je n'utilise que rarement le code VBA, et là j'en ai besoin.
pour aider mes petits adhérents.
:lol:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Private Sub OK_Click()
'feuille contenant la valeur à chercher
With Sheets("tarifs HT")
'de la ligne 2 à la dernière ligne utilisée de la colonne C
For i = 2 To .Cells(Rows.Count, 3).End(xlUp).Row
'recherche de la ligne en colonne C qui correspond à la sélection du listbox1
If .Cells(i, 3).Text = Me.tarifs Then
'si oui tarifs = colonne suivante même ligne
droitentree = .Cells(i, 3).Text
cotisationan = .Cells(i, 4).Text
Exit For
End If
Next
End Sub
Private Sub UserForm_Initialize()
Datel = Format(Date, "dd/mm/yyyy")
End Sub |
1 pièce(s) jointe(s)
récupérer données EXCEL sur FORMULAIRE USERFORM
bonjour, merci pour votre réponse.:P
j'ai de nouveau un souci, mon Userform ne s'incrémente pas ?
Je pense que j'oublie quelque chose, mais quoi :?
Je vous renvoie mon Userform avec code, je voudrais que en fonction de la date du jour, il aille chercher le bon tarif qui se trouve sur mon tableau.
:oops:
j'ai du mal, débutante, je suis.:D
récupérer données EXCEL sur FORMULAIRE USERFORM
bonjour, merci pour l'info, c'est sur si je me trompe de colonnes :oops:
ceci dit,
Citation:
j'ai un message d'erreur "erreur 70" permission refusée ?
j'ai bien repris votre code et changé mon tableau en créant 2 lignes comme dans votre modèle avec les formats dates.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
| Private Sub CANCEL_Click()
Unload Me
End Sub
Private Sub OK_Click()
'feuille contenant la valeur à chercher
With Sheets("tarifs HT")
'de la ligne 2 à la dernière ligne utilisée de la colonne C
For i = 3 To .Cells(Rows.Count, 3).End(xlUp).Row
'recherche de la ligne en colonne A qui correspond à la sélection du combobox
If .Cells(i, 1).Text = Me.tarifs Then
'si oui tarifs = colonne suivante même ligne
droitentree = .Cells(i, 3)
'de la colonne A à la dernière colonne de la région courante (on balaie de la 1ère ligne à la recherche d'une date)
For j = 1 To .[al].CurrentRegion.Columns.Count
'par défaut, on prend la cotisation colonne 4("D")
cotisationan = .Cells(i, 4)
'mais si on trouve une date correspondante dans les autres colonnes on écrase la valeur par défaut
If IsDate(.Cells(1, j)) Then
'recherche du tarif selon la date
'on compare la date de début et la date de fin de la période
If CDate(Me.Datel) >= .Cells(1, j) And CDate(Me.Datel) <= .Cells(2, j) Then
cotisationan = .Cells(i, j)
Exit For
End If
End If
Next j
Exit For
End If
Next i
End With
End Sub
Private Sub UserForm_Initialize()
Dim s As Worksheet
Dim r As Range
Dim var As Variant
'monte les données dans la combobox
Set s = Sheets("tarifs HT")
Set r = s.Range("a3:a" & s.[a65536].End(xlUp).Row)
var = r
Me.tarifs.List = var
Datel = Format(Date, "dd/mm/yyyy")
End Sub |
A moins que ce soit une protection de mon ordinateur ?
merci de m'éclairer 8-)
merci pour tout.
récupérer données EXCEL sur FORMULAIRE USERFORM
bonjour,
merci beaucoup, en effet, je ne sais pourquoi cela marche avec ton exemple et pas avec le mien, donc je te remercie de ta patiente et de ta générosité. :ccool:
Je crois que c'est l'extension du fichier excel qui pose problème.
En tout cas Bonne semaine.:ccool: