Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour
Comment extraire tout ce qui se trouve après le dernier trait de soulignement "_" dans une chaine de caractères ?
exemple:
12547-Achat climatiseur 23 avr. 2024_25/2024 =======> résultat : 25/2024
00025-Réparation moteur pour iliess_104G/2024======> résultat : 104G/2024...
Bonsoir M. @Cousinhub
Il s'agit d'un autre fichier.
J'ai appliqué la technique Power Query en VBA et je trouve qu'elle est très efficace pour moi, car je peux ajouter plusieurs fonctions. Mais mon nouveau fichier contient une seule feuille et le nom de la feuille change, mais toujours commence...
Svp monsieur @Cousinhub une dernière question
le nom de l'onglet est différent, et qu'il n'y a qu'un seul onglet. Comment dans cette ligne
.CommandText = Array("SELECT * FROM [JournalAuxExcel]") Je change le nom de la feuille. Sachant que c'est toujours la première feuille.
merci, M @patricktoulon pour le code et pour vos conseils.
SVP, après tous vos codes, je dois ajouter les lignes suivantes.
range("F1").value = range("J1").value
range("F2").value = range("J2").value
En plus, éliminer la fusion du A3 et A4
Centrer la cellule A3:G3 et A3:G3
Résultat des codes...
Bonsoir M. @Gégé-45550
Merci pour votre code, c'est rapide et efficace. Effectivement, la libelle qui commence Colonne.
Mais si c'est possible que les valeurs en J1 et J2 se déplacent avec la suppression ?
Le tableau avant :
résultat souhaité
Votre code
bonjour
Je cherche la méthode la plus rapide pour supprimer des colonnes discontinues B D E H K L M O dans un tableau structuré nommé Tableau1 de A6 :O16 en VBA.
Cordialement
Le tableau avant :
Le tableau après :
bonjour
Non, Monsieur, ce n'est pas une information confidentielle. Il s'agit plutôt d'un logiciel développé en interne par notre entreprise. Il est exécuté directement dans Mozilla pour effectuer les écritures comptables.
Bonsoir, Mr @mapomme Grâce à votre réponse, j'ai une idée très facile.
-1 Changer les en tête par les valeurs de A4 à I4
-2 insérer 3 ligne
-3 copie les lignes 2 et 3 du tableau 1.
voici le code finale
Sub traitement()
Dim ShAuxi As Worksheet
Set ShAuxi = Sheets("Feuil1")
With ShAuxi...
Bonsoir Mr @TooFatBoy , Mr @Gégé-45550
je vous explique mieux
après l'ouverture d'un grand fichier Excel par Power Query voici le poste :https://excel-downloads.com/threads/ouvrir-un-fichier-excel-rapidement-en-vba.20082355/post-20638684
voici résultat du fichier
voici résultat souhaité
Bonsoir
J'utilise le code suivant pour redimensionner un tableau structuré Excel en VBA.
Sub Redimensionner()
ActiveSheet.ListObjects("Tableau1").Unlist
Cells.ClearFormats
ActiveSheet.ListObjects.Add(xlSrcRange, Range("A4:12"), , xlYes).Name = "Tableau1"
Range("A1:I3").Clear
End Sub
En...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.