Résultats de la recherche

  1. Regueiro

    Microsoft 365 Format Nombre Combobox dans Feuille

    Bonjour à Tous & fanch55 Merci pour votre réponse. Comment formater ?? Merci pour votre retour
  2. Regueiro

    Microsoft 365 Format Nombre Combobox dans Feuille

    Bonsoir à tous Voici le code, Format des Nombre dans la cellule 0.00000 Dans le Combobox1 0,00 avec virgule ? Private Sub Worksheet_Activate() Me.ComboBox1.Clear Set f = Sheets("DONNEES GRAPHIQUE") Set mondico = CreateObject("Scripting.Dictionary") a = f.Range("I5:I" &...
  3. Regueiro

    Microsoft 365 VBA Transpose

    Merci pour ta réponse j'ai utilisé la méthode de Boisgontier Un peu plus fastidieux mais cela fonctionne =fusion(TABX1;TABX2;TABX3;TABX4;TABX5) Function Fusion(tab1, tab2, tab3, tab4, Optional tab5) Dim temp() Set mondico1 = CreateObject("Scripting.Dictionary") For Each c In tab1 'If c <>...
  4. Regueiro

    Microsoft 365 VBA Transpose

    Bonsoir à Tous - Sylvanu Merci beaucoup très rapide encore une requête C'estt possible de transposer avec liaison ?
  5. Regueiro

    Microsoft 365 VBA Transpose

    Sylvanu J'ai essayer votre code. Par contre il transpose les 5 lignes dans 5 colonnes Je souhaitais sur une seule colonne Merci
  6. Regueiro

    Microsoft 365 VBA Transpose

    Merci pour votre réponse Je ne pouvais pas mettre de fichier pour l'instant Fichier très lourd pour du dimensionement de poutre Métallique avec plusieurs cas de charges.
  7. Regueiro

    Microsoft 365 VBA Transpose

    Sub essai3() Dim WS1 As Worksheet Set WS1 = Sheets("data for diagrams") a = WS1.Range("C32:CY32") b = WS1.Range("C47:CY47") d = WS1.Range("C63:CY63") e = WS1.Range("C79:CY79") f = WS1.Range("C95:CY95") c = Fusion(a, b, d, e, f) [I5].Value = 0 [I6].Resize(UBound(c)) = c...
  8. Regueiro

    Microsoft 365 VBA Transpose

    Bonjour à tous Comment transposer les données en I4 Merci pour votre Aide Sub transpose() Dim WS1 As Worksheet Set WS1 = Sheets("data for diagrams") 'Range("C32:CY32,C47:CY47,C63:CY63;C79:CY79,C95:CY95") Dim a(1 To 5) a(1) = WS1.Range("C32:CY32").Value a(2) =...
  9. Regueiro

    Microsoft 365 Inclure 2 nombres dans une boucle

    Bonsoir Le Forum Voici le Code pour info 'Option Explicit Option Compare Text Sub ValeurX() 'axe des abscisses Dim Tbl() Dim d As Object Dim WS1 As Worksheet Dim RGX As Range 'Colonne pour les X Dim FIN As Integer Dim i As Long Set WS1 = Sheets("EXERCICE 1") Set RGX =...
  10. Regueiro

    Microsoft 365 Inclure 2 nombres dans une boucle

    Bonsoir Marcel A1 = la valeur par exemple 4.05 que je veux inclure dans ma boucle A2 = la valeur par exemple 7.85 que je veux inclure dans ma boucle Cela doit donner 3.75 4.00 4.05 = A1 4.25 4.50 etc 7.00 7.25 7.50 7.75 7.85 = A2 8.00 etc.
  11. Regueiro

    Microsoft 365 Inclure 2 nombres dans une boucle

    Bonsoir le Forum FIN = 10 Ce code ajoute sur ma feuille la Série de 0 - 0,25 - 0.50 -> 10 OK J'aimerais inclure 2 nombres dans cette suite Par Exemple valeur de la Cellule A1 = 4.05 et Valeur de la Cellule A2 = 7.85 Ceci pour alimenter une série de X pour un graphique Merci de votre Aide Voici...
  12. Regueiro

    Microsoft 365 GRAPHIQUE DYNAMIQUE AVEC SHAPES

    Bonsoir le Forum Petite vidéo Petite questions comment partager des vidéos directement sur le site ??
  13. Regueiro

    Fichier pour Jacques BOISGONTIER

    Bonsoir le Forum Je relance le post de Zarjoun. Avez-vous des nouvelles concernant le site de Boisgontier ??
  14. Regueiro

    XL 2010 Problème avec un TextBox bloqué

    Bonsoir Le Forum En reprenant le code de Chti60 j'ai enlevé le Frame Private Sub CommandButton1_Click() Unload Me End Sub Private Sub UserForm_Initialize() Me.TextBox1.Text = Format(Date, "dd/mm/yyyy") Me.TextBox1.ForeColor = vbBlue custom_lock Me.TextBox1 Me.Label1.Caption = Format(Date...
  15. Regueiro

    Microsoft 365 Parcourir mes Variables

    OK Soan Merci
  16. Regueiro

    Microsoft 365 Parcourir mes Variables

    Danreb Merci pour ton Aide Voilà le code Sub ShapeInvisible() Dim i As Integer InitVariables With WS1 MsgBox .Shapes.Count End With For i = 1 To 6 MShape(i).Visible = False Next i End Sub
  17. Regueiro

    Microsoft 365 Parcourir mes Variables

    Bonsoir Soan, je ne vois pas ce que tu veux dire Sub ShapeInvisible() InitVariables With WS1 MsgBox .Shapes.Count End With MShape1.Visible = False End Sub Ce code marche parfaitement Danreb je regarde ton code et te donne des nouvelles. Merci à tous les 2
  18. Regueiro

    Microsoft 365 Parcourir mes Variables

    Bonsoir le Forum Comment parcourir mes variables Publiques Option Explicit Public WS1 As Worksheet Public MShape1, MShape2, MShape3, MShape4, MShape5, MShape6 As Shape Sub InitVariables() Set WS1 = Worksheets("GRAPHIQUE") Set MShape1 = WS1.Shapes("RECT-UDL1D") Set MShape2 =...
  19. Regueiro

    Microsoft 365 Tablo ( Array) avec colonnes discontinues

    Bonsoir Le Forum. Merci à tous pour vos contributions. Job75 merci pour la Fonction Bonne soirée
  20. Regueiro

    XL 2016 Valeurs de Zones discontinues

    Bonsoir le Forum Ce Code charge tous les tableaux de la page active, Colonne 1 Private Sub ComboBox1_DropButtonClick() Dim tableList As ListObjects Dim Tbl() Dim n Dim i Dim r Set tableList = ActiveSheet.ListObjects MsgBox tableList.Count n = 0 For i = 1 To tableList.Count For r = 1 To...