iNouveau venuintelgo77Inscrit le :12/06/2019Dernière activité :05/04/2020 à 12:05Version d'Excel :2016Messages7Votes0Fichiers0Téléchargements0SujetsMessagesStatistiquesVotes reçus Messages postés par intelgo77DateAuteur du sujetSujetExtrait du message19/06/2019 à 12:17naubin1 Question function VBACréer une fonction vba sur le nombre de caractères d'une cellule (20 caractères) Function excel(excel_Code As Variant) As String Select Case Len(excel_Code) Case 0 To 19 ISIN = "Not enough" Case 20 excel = "OK" Case Is > 20 excel = "Too many" End Select End Function...19/06/2019 à 10:57intelgo77Insertion nouvelle feuilleBonjour, cet autre code me permet de cibler et copier des valeurs d'une feuille et coller les lignes entières sur une autre feuille. Idem que l'autre macro : celui ci met un peu de temps à s'exécuter. Si quelqu'un pourrait me donner un coup de main. Merci. Sub macro () Dim N_Row As Long Dim i_Loop A...19/06/2019 à 10:01intelgo77Insertion nouvelle feuilleBonjour j'ai un code qui me permet d'insérer une nouvelle feuille dans un classeur et de copier les données ciblées sur cette nouvelle feuille. Cependant le code mets un peu de temps à tourner, auriez vous une amélioration sur ce dernier. Merci !! Sub macro () 'Déclaration des variables Dim N_Row As...12/06/2019 à 13:56jef59Msgbox nombreFaçon de compter le nombre de valeurs dans une matrice carrée. Option Explicit Option Base 1 Sub SQUARE() Worksheets("Feuil1").Select Dim Tableau() Dim ligne As Variant Dim colonne As Variant Dim counter As Integer For ligne = 1 To 6 For colonne = 11 To 6 Tableau(ligne, colonne) = Range("A1:F20") Ne...12/06/2019 à 12:09jef59Msgbox nombreVoici une manière de compter les valeurs présentes et de les ressortir sur un message box en fonction des valeurs voulues Sub macro_1() Worksheets("sheet1").Select Dim N_Row As Long, i_loop As Long Dim counter As Long N_Row = Worksheets("sheet1").Cells(1, 1).End(xlDown).Row counter = 0 For i_loop =...12/06/2019 à 12:00jef59Msgbox nombreBonjour voici une façon il me semble de copier et coller des valeurs d'une feuille à une autre par des variables tableau. (Si des améliorations sont possibles, je suis preneur) Sub Macro() Worksheets("sheet1").select Dim Macro(1 To 1000) As String Dim i As Integer Dim Cel As Range Set Cel = Range("B...12/06/2019 à 11:49alex_ Suppression des lignesSalut, voici une façon de supprimer des lignes en fonction de la valeur du cellule dans une colonne. (Si vous avez des améliorations je suis preneur". Merci. Sub () Worksheets("...").Select Dim i For i = 10000 To 2 Step -1 If Cells(i, 2).Value = "....." Then Rows(i).EntireRow.Delete Next i End Sub...Forums