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.
Re : Ne pas afficher doublon listbox multi sélection
Bonjour,
Voici une suggestion en modifiant légèrement le code:
Private Sub UserForm_Initialize()
If Sheets("Saisie").Range("B3").Value = "DUNLOP 2" Then UserForm2.TextBox10.Value = "D2"
If...
Re : Fermeture des Userforms
Bonsoir,
Avez-vous essayer d'exécuter votre code en "pas à pas"?
vous tombez dans une boucle sans fin
Ajouter la ligne de code suivante :
With TextBoxMotPasse
If .Value = "zaza" Then 'mot de...
Re : problème d'appel de fonction excel
Bonjour,
"Date" n'est pas un membre de WorksheetFunction, d'où l'erreur.
Essayer ceci peut-être :
MsgBox DateSerial(2014, 2, 1)
Re : Suppression caractere invisible
Bonjour,
À l'aveugle, fonction personnalisée à essayer :
Function Extrait(c As Range) As String
With CreateObject("vbscript.regexp")
.Pattern = "^[^-]+-"
If .Test(c) Then Extrait = .Execute(c)(0)
End With
End Function
Re : Extraction de valeur numérique
Bonjour à tous,
Pour le fun, une proposition par VBA avec une formule personnalisée utilisant les expressions régulières :
(pas à toute épreuve mais ok pour les exemples donnés)
Function ExtraitNombre(c As Range) As Double
Dim M
With...
Re : Optimisation d'un code VBA (Pour les courageux au grand coeur ^^)
@ Tgr
Le code n'est encore pas optimisé. Avant de le faire, j'aimerais savoir quels sont les résultats attendus.
Voir le fichier joint de mon post précédent avec quelques lignes seulement.
Aussi, peut-on avoir des % > 100% ?
Re : Optimisation d'un code VBA (Pour les courageux au grand coeur ^^)
Bonjour,
Voici un code à essayer. Toutefois, je n'obtiens pas le même résultat. Donc, avant d'aller plus loin, svp préciser quel serait le résultat attendu en supposant les données du fichier joint (quelques pièces...
Re : Coupure phrases après 30 caractères et après un point (.)
@david84
Merci pour toutes ces explications.
En particulier pour l'utilisation du [^ et du (.+?) que je n'avais pas bien compris avant.
Re : Coupure phrases après 30 caractères et après un point (.)
@david84
Le pattern de ton dernier message fonctionne! Bravo!
Il ne me reste plus qu'à le décortiquer pour bien le comprendre afin de pouvoir le réutiliser un jour (peut-être ?)
Re : Coupure phrases après 30 caractères et après un point (.)
@david84
Merci pour les explications.
Le pattern ne semble pas bien fonctionner car il ne découpe pas la phrase correctement après un point.
Exemple :
Texte court. Maintenant un texte de 30 caractères. Texte court. Fin...
Re : Coupure phrases après 30 caractères et après un point (.)
et voici le code dans une fonction personnalisée (merci à mapomme pour l'idée !!).
Suffit de sélectionner plusieurs cellules (en ligne ou en colonne) et de valider comme une fonction matricielle avec CTRL+MAJ+ENTER
Le nombre de...
Re : Coupure phrases après 30 caractères et après un point (.)
@david84
J'ai testé la proposition sur regexpal.com mais le pattern fait pas les séparations correctement où les ponts.
La piste est peut-être bonne, mais je ne maîtrise pas encore assez les RegExp...
@Lone-Wolf, @kaki31...
Re : Coupure phrases après 30 caractères et après un point (.)
Petit correctif pour enlever les espaces superflus en début de ligne :
Sub SplitCell()
Dim c As Range
Dim ar
Dim i As Integer, j
Application.ScreenUpdating = False
With CreateObject("vbscript.regexp")...
Re : Coupure phrases après 30 caractères et après un point (.)
Bonjour kaki31,
Un essai avec une expression régulière :
Sub SplitCell()
Dim c As Range
Dim ar
Dim i As Integer, j
Application.ScreenUpdating = False
With CreateObject("vbscript.regexp")...
Re : Macro retour à la ligne après chaque majuscule
Bonjour,
Voici une proposition, utilisant les expressions régulières.
Sélectionner les cellules à modifier et exécuter la macro.
Sub SplitCell()
Dim c As Range
Application.ScreenUpdating = False
With...
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.