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 @Lolote83, @vgendron, @sylvanu,
Merci à tous les trois de vous être intéressé à mon problème.
J'ai regardé avec attention vos différentes productions et je pense que celle qui correspond le mieux à la question inutile est celle de @Lolote83 au post #4. Toutefois je ne comprends pas "si...
Bonjour le forum,
Après plusieurs essais via les mises ne formes conditionnelles je fais appel à vous pour m'aider à résoudre mon problème en vba.
Dans le fichier joint, j'ai un tableau qui peut avoir entre 1 et 500/600 lignes pour lesquelles j'ai entre 1 et 3 valeurs différente(s).
Je...
vgendron,
Voici le code compilé qui a l'air de fonctionner :
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim lignes As Integer
Dim debut As Integer
lignes = TextBox1.Value
For debut = 1 To lignes
With ActiveCell.EntireRow...
Merci vgendron pour le lien.
J'ai essayé de fonctionner ainsi :
Private Sub CommandButton3_Click()
Dim X As Integer
X = TextBox1.Value
ActiveCell.EntireRow.Copy
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(X, 0)).EntireRow.Insert Shift:=xlDown
Application.CutCopyMode =...
Bonsoir le forum,
Je cherche à insérer une ou plusieurs lignes via UserForm (via TextBox et bouton de validation).
J'ai trouvé ce code mais via InputBox :
Sub Incrémentation()
Dim xCount$
LableNumber:
xCount = Application.InputBox("Nombre de lignes à incrémenter", "Tableau de...
Bonjour le forum,
J'ai dans mon fichier Excel plusieurs onglets avec des segments.
J'utilise la macro ci-dessous pour supprimer la totalité des segments en une seule fois, mais elle effectue la suppression des filtres sur tous mes autres onglets...
Comment faire fonctionner cette macro onglet...
Bonsoir le forum,
J'ai un fichier avec le code suivant :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim NomDossier As String
Dim NomFichier As String
NomDossier = "C:\Users\xxx\"
Application.DisplayAlerts = False
NomFichier = Format(Date, "dd.mm.yyyy") & "_" &...
Bonjour le forum,
Dans le tableau joint, je cherche à renseigner le tableau se trouvant en AK:AN.
Voici ma problématique :
- Dans ID doit figurer uniquement l'ID d'un client de la ligne si il est unique
- Dans ID (T1) doit figurer le premier ID client de la ligne en commençant depuis la gauche...
Bonsoir le forum,
Je rencontre un soucis avec une mise en forme conditionnelle.
J'ai dans les cellules B1:X1 un menu déroulant avec une liste de 3 items identiques.
Les cellules B1 et D1 disposent d'une mise en forme conditionnelle qui se déclenche en fonction du texte contenu en A1.
Pour...
Merci Staple cela fonctionne parfaitement !
Question, n'est il pas possible de faire la manip sans avoir besoin de sélectionner la plage au préalable avant d'exécuter la macro. Lui demander par exemple d'exécuter la code sur toute les cellules non vides de la colonne D à partir de D2 ?
Bjr le forum, quelqu'un peut il m'aider dans la transcription du code ? Ou m'aiguiller pour essayer d'y arriver avec mon maigre capital vba ?
Merci par avance.
Bonne journée à tous,
P79
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.