Résultats de la recherche

  1. Y

    XL 2019 supprimer la dernière ligne d'une textbox

    Bonjour Dans une textbox (multiligne) je voudrais supprimer la dernière ligne. j'ai essayé de compter le nb de lignes avec une variable "Del" Del=textbox1.LineCount → cela ne marche pas est ce que quelqu'un aurait une solution? D'avance merci
  2. Y

    XL 2019 vérifier des check dans une listview

    Bonsoir je voudrais un code qui "exit sub" si aucune ligne n'a été "chekée" dans une listview j'ai essayé : Dim j As Integer With ListView2 For j = 1 To .ListItems.Count If .ListItems(j).Checked = False Then MsgBox ("aucune ligne n'a été sélectionnée, veuillez en...
  3. Y

    XL 2019 stocker la valeur d'un txtb en variable a l'ouverture d'un userforme

    Bonjour Quand j'ouvre un userforme Je voudrais récupérer la value de certaines txtbox dans une variable pour pouvoir la comparer si changement de cette txtbox. j'ai essayé avec des variables static, public je n'arrive pas à faire fonctionner pour exemple Private Sub UserForm_Initialize Dim...
  4. Y

    XL 2013 Appliquer le même code sur plusieurs textbox et module de classe

    Bonjour je suis en train de faire une fichier pour gérer mes commandes Je souhaiterais un code qui simplifie celui-ci (code réalisé sur les 2 premières lignes) si j'ai 25 lignes ce sera long ... donc J'ai un prix/U x Quantité x remise % (qui peut avoir des virgules) je souhaiterais aussi la mise...
  5. Y

    XL 2013 Recherche qui fonctionne avec le texte et non la Value

    Bonjour Le code ci-dessous me permet d'aller chercher des valeurs de "N° Outil" les outils sont appelés N° 0001 / N° 0002 / N° 0003 ... Le problème est que j'ai des outils en double qui sont appelés par exemple N° 0007 et N° 0007 - Bis Si je fait une recherche du N° 0007 la recherche ne...
  6. Y

    XL 2013 Simplification boucles

    Je cherche à simplifier ces boucles en 1 seule Merci pour votre aide 'Remplissage des références E = 37 For C = 10 To 164 Step 11 If Me.Controls("TextBox" & C).Value <> "" Then Cells(L, E).Value = Me.Controls("TextBox" & C).Value E = E + 6 End If Next 'Remplissage des désignations Op E = 39...
  7. Y

    XL 2013 Sélection de plusieurs colonnes dans un tableau puis conversion en Date

    Bonjour Je cherche à simplifier : ActiveSheet.ListObjects("TabGlobaleFicheIntervention").ListColumns(2).DataBodyRange.Select Selection.NumberFormat = "dd/mm/yyyy" ActiveSheet.ListObjects("TabGlobaleFicheIntervention").ListColumns(30).DataBodyRange.Select Selection.NumberFormat = "dd/mm/yyyy"...
  8. Y

    XL 2013 Calcul en boucle dans un userforme

    J'ai un pb avec ce sous programme qui me permettrai de faire une somme de plusieurs multiplications en boucle a partir de textbox 200 à 220 J'ai réalisé cette boucle mais elle ne fonctionne pas : J'ai comme message " incompatibilité de type" Sub CalculTotalFI() D = 0 For E = 200 To 220 Step 2...
  9. Y

    XL 2013 Comment appliquer le même code à plusieurs textbox dans un userforme

    Bonjour Je vous joints mon fichier qui fonctionne , mais que j'aimerais simplifier au niveau des codes très répétitifs D'avance merci
  10. Y

    XL 2013 Supprimer plusieurs lignes vides dans une cellules

    Bonjour Je voudrais une solutions pour supprimer l'ensemble des lignes vides contenues dans une cellule Le code que j'ai trouvé ne supprime qu'une seule ligne et non toutes d'un coup
  11. Y

    XL 2013 La méthode 'Value' de l'objet range à échoué

    Bonjour Quand je valide la création d'une référence en passant par le bouton "Lancement création référence"→j'arrive sur le UserForm "Page2CréationRéférence" et que je valide la création la macro d'enregistrement de la référence fonctionne. Par contre passe à l'ouverture du fichier quand je...
  12. Y

    XL 2010 Ligne de code avec 2 variables évolutives

    Bonjour Voir code complet ci dessous. Sur cette ligne de code qui est une sorte de recherche V: .Controls("TextBox" & D) = Application.WorksheetFunction.VLookup(Me.Controls("ComboBox" & C), Sheets("Source 1").Range("ListeGlobaleRefLacour"), E, 0) Ce code me complète les textbox 131→136...
  13. Y

    XL 2013 la méthode value de l'objet range a échoué!!

    Bonjour Quand je click sur le btn de validation dans les userform de création référence / Creation matière/ création client, excel plante très souvent et me met en message: "la méthode value de l'objet range a échoué" J'ai lu que c'était apparemment un boucle qu'Excel n'arrivait pas à terminer...
  14. Y

    Extraire une liste de lignes contenant un certain texte dans une colonne

    Bonjours je voudrais simplement copier toutes les lignes contenant une "X" dans la colonne D dans une nouveau fichier, et que ce fichier se mette automatiquement à jour en fonction de l'évolution du fichier "question gestion maintenance" Merci de votre aide