Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3072 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Userforms sur excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Userforms sur excel

n°1559791
placeboo
Posté le 14-05-2007 à 01:37:13  profilanswer
 

Voila c'est super urgent j'ai trois gros problèmes
 
1) Quand je tape ce code pour afficher un résultat présent sur la feuille excel dans l'userform rien ne se passe, reste vide alors que cellule excel remplie
 
TextBox11.Value = Range("calcul!I2" ).Value
 
Il faut que je clique avec une touche dans le textbox pour que la valeur apparaisse
 
2) Comment faire pourqu'a chaque fois que je valide mon userform celui ci se remette VIERGE.
 
3) J'ai un tableau avec 5 colonnes et des doublons je sais pas comment faire pour supprimer automatiquement les doublons
 
 
4) Mon plus grand problème
 
j'ai un identifiant dans mon tableau auquel correspond un ligne et je voudrais à chaque fois que je tappe cet identifiant dans une autre feuille, la ligne correspondante appraisse
 
 
Merci beaucoup pour votre aide


Message édité par placeboo le 14-05-2007 à 01:48:39
mood
Publicité
Posté le 14-05-2007 à 01:37:13  profilanswer
 

n°1559802
seniorpapo​u
Posté le 14-05-2007 à 07:01:40  profilanswer
 

Bonjour,
1)Tu "tapes" ton code où?
2)Tu valides ton userform comment?
3)Cherches doublons sur le forum tu auras un début de réponse.
  Où sont tes doublons (colonne?)
Cordialement
 
edit:
pour le 4) tu peux essayer quelque chose comme cela
à placer dans "l'autre feuille" et modifier le sheets(2) en fonction du numéro de la feuille
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
If Target.Address = "$A$1" Then
With Worksheets(1).Range("a1:a500" )
atrouver = Range("a1" ).Value
    Set c = .Find(atrouver, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstaddress = c.Address
        Sheets(1).Activate
       ' .Range(firstaddress).Select
        .Range(firstaddress).EntireRow.Select
       Selection.Copy
       Sheets(2).Activate
       Range("a2" ).Select
       Paste
    End If
End With
End If
 
End Sub
 
 
 
 
edit2:
pour le 4
sans le VB ci-dessus
tu peux utiliser :=RECHERCHEV($A$1;Feuil1!$A:$H;COLONNE(A1))
 
à étendre sur la ligne où tu veux reproduire les données
en a1 la valeur à cherchée dans la colonne A de feuil1
on suppose que tu veux les colonnes A à H


Message édité par seniorpapou le 14-05-2007 à 08:34:27

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Userforms sur excel

 

Sujets relatifs
Aide sur VBA Excelexporter des données excel dans une base SQL existante
Importer fichiers multiples excel => accessCréer e modifier un fichier excel en C#
[résolu] Génération de graphique Excel, problème de locationDLL Visual C++ 2005 Express to VBA Excel
xml et excelMAJ base de données sur excel
recherche d une valeur et copie sous excelFaire apparaitre un Bouton d'une macro sous excel sous condition
Plus de sujets relatifs à : Userforms sur excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR