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.
@patrick
On voit la différence entre une "bidouilleuse" en vba et un pro.
Pour moi, quand cela marche, je suis déjà contente.
Désolée d'avoir mal corrigé ton code, pas de rancune ??
Bonne fin de journée à tous
Bonjour tous deux,
vois avec la macro de Patrick modifiée
Sub liste_Patty()
Dim t(), lig&, col, i&, a&, n&, v$
Feuil1.[e2].Resize(ActiveSheet.UsedRange.Rows.Count, 1).ClearContents
With Range("Tableau1").ListObject.DataBodyRange
For lig = 1 To .Rows.Count
a =...
Bonjour Ralph, bonjour Patrick
@patrick
Tu travailles mieux et plus vite que moi.
Par contre , si j'ai bien compris sa demande, dans les cas de la ligne 5 :
56, puis /66, j'ai cru comprendre qu'il souhaitait avoir 56,58,60, et ainsi jusqu'à 66 inclus
Bon après-midi
Bonjour MCO2406
Personnellement, si j'ai compris ce que tu veux , je ferais ceci : mettre l'évènement change dans ta feuille 1_MENU ainsi :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$C$2" Then
Choix = Target...
Bonjour Pat66
Private Sub CBOK_Click()
If Len(Me.Nom) = 0 Then
MsgBox "Saisir une durée ! ", vbYes, " simulateur "
Exit Sub
ElseIf IsNumeric(Me.Nom.Value) = False Or Me.Nom.Value < 10 Or Me.Nom.Value > 25 Then
MsgBox "Saisir une valeur comprise entre 10 et 25! ", vbYes, " simulateur...
Bonjour xvella
Vois si cette macro te va :
Option Explicit
'
Sub Etude()
Dim cell As Range
Dim Compteur As Variant, Red As Variant
'
Compteur = 0
For Each cell In Sheets("Page1").Range("B3:B20").Cells
If cell <> "" Then Compteur = Compteur + 1
Next
'
Red = 0
'
For Each cell In...
Bonjour à tous,
Perso, même si je lance la macro plusieurs fois, tout reste nickel pas de CP/CP/CP
Donc est-ce que tu travailles sur le bon fichier, du moins la bonne macro ??
Bonjour à tous,
Je ne comprend pas du tout le but de ton travail, mais ce que tu demandes là est bizarre, Si je comprend , cela veut dire que tu te moques complètement que ce soit une valeur ou une autre.
En clair, tu veux dire que tu ne veux pas voir 2 ou 3 valeurs du style TT/CP, mais une...
Bonjour à tous
Il semblerait que ce sujet soit résolu ou ai-je mal vu ?
S'il est résolu, il serait intéressant de savoir quelle solution a été retenue ??
Merci pour tous
Bonjour à tous , Bonjour Rabeto
Si ton fichier est sans cesse modifié, je vais abandonner, je pense.
J'avais commencé à le reprendre pour trouver les colonnes et lignes sans mettre des valeurs fixes, au cas où tu bouleverses encore tout, mais je vois que pour un même ID, tu as encore plusieurs...
Bonjour
A quoi correspond cela ??
Sachant que tes CHR entre parenthèses correspondent au mot Sheet, et quelle est la valeur de fichierCible ??
As-tu un extrait de fichier ? Car là, je suis paumée ..
Bonjour Rabeto
Je peux regarder mais j'aime programmer, mais je suis "basique". Il faudrait que tu demandes de l'aide à quelqu'un d'autre en demandant d'améliorer ce code qui est trop lent
J'aurai certainement des critiques, mais tant pis
Bonne journée
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.