incrémentation ne fonctionne pas !

[kechor]

bonjour à tous,

je suis débutant sur les forums,

voilà mon souci, j'ai adapté un bout de code que j'ai récupéré dans le forum pour un formulaire , mais les données ne s'incrémente pas . merci de votre aide.

 

[kechor]

Re : incrémentation ne fonctionne pas !

excuse moi JNP,

je n'avais pas ton dernier message

bonne soirée

 

[kechor]

Re : incrémentation ne fonctionne pas !

Bonjour Arpette et Staple1600

j'ai réussi une petite partie de ce que je voulais réaliser, il y surement plus simple.
càd mettre le nom dans la colonne 3, je m'attaque maintenant au format des cellules !!!

à plus tard

 

[kechor]

Re : incrémentation ne fonctionne pas !

RE: Staple1600

mieux vaut tard que jamais,
peux tu m'expliquer le code stp.

amicalement

 

[kechor]

Re : incrémentation ne fonctionne pas !

Bonjour à tous,

voilà j'ai réussi à réaliser la copie des données sans recopier la mise en forme.
derligne.PasteSpecial Paste:=xlAll, Operation:=xlNone, Transpose:=True

à la place xlAll il faut mettre xlValue voilà.

je dois conituer à améliorer mon formulaire à bientôt.

 

[kechor]

Re : incrémentation ne fonctionne pas !

Bonjour JNP

voici la dernière mouture de mon formulaire de saisie.
ce que je souhaite c'est de pouvoir lire les données ligne par ligne du tableau bdd dans la feuille saisie.
comme un formulaire à l'envers cad au lieu de saisir les données mais les lire.

à te lire à bientôt.

 

[JNP]

Re : incrémentation ne fonctionne pas !

Re ,
A tester en D13

=SOMMEPROD((bdd!C3:C20=$B$3)*(bdd!D2:AB2=$A13)*(bdd!D3:AB20))

à copier vers le bas, à condition bien sûr que la BDD soit en "article1" et non "produit1" ...
Bon WE

 

[kechor]

Re : incrémentation ne fonctionne pas !

re:JNP,
merci pour le code vais tester.

 

[kechor]

Re : incrémentation ne fonctionne pas !

JNP,
Peux tu m'expliquer le code stp
merci.

 

[Staple1600]

Re : incrémentation ne fonctionne pas !

Bonsoir kechor, la compagnie, JNP

RE: Staple1600

mieux vaut tard que jamais,
peux tu m'expliquer le code stp.

amicalement

kechor
Voici quelques explications (avec un peu de retard, weekend oblige )

Sub m()
'Déclarations
Dim t 't déclaré comme Variant (valeur par défaut)
'Je m'en sers car je veux que t soit un Array (ou tableau in french ;-) )

t = Sheets("saisie").Range("E8:E39").Value
'On remplit le tableau avec
'les cellules "E8:E39" de la feuille "saisie"

With Sheets("bdd").[A65536].End(3)(2) '(*)-> x est là
'ici on détermine la première cellule non vide
'de la colonne A de la feuille "bdd"
    
    'On définit le nombre de cellules équivalent
    ' avec Ubound *
    
    '''*: Extrait AIDE de VBA
    '''Remarques
    '''La fonction UBound est utilisée avec la fonction LBound
    '''pour déterminer la taille d'un tableau.
    
    .Resize(, UBound(t)) = _
    Application.Transpose(t)
    'on transpose les valeurs de t
    'sans avoir à passer par: Collage Spécial/Transposer
    
    'et enfin on applique un format date
    ' aux cellules Ax et Bx
    '(*)-> x= le numéro de ligne renvoyé au début de la macro
    .Resize(, 2).NumberFormat = "m/d/yyyy"
End With
End Sub

 

[JNP]

Re : incrémentation ne fonctionne pas !

Re ,

JNP,
Peux tu m'expliquer le code stp
merci.

C'est pas du code, c'est une formule ...
=SOMMEPROD((bdd!C3:C20=$B$3)*(bdd!D2:AB2=$A13)*(bdd!D3:AB20))
bdd!C3:C20=$B$3 vaut 1 (VRAI) quand il trouve le nom
bdd!D2:AB2=$A13 vaut 1 (VRAI) quand il trouve l'article
du coup, il prends la valeur 1 en colonne et 1 en ligne dans bdd!D3:AB20 qui correspond ...
Bonne soirée

 

[kechor]

Re : incrémentation ne fonctionne pas !

bonjour JNP, Staple1600

merci pour les explications
à plus tard.

 

[kechor]

Re : incrémentation ne fonctionne pas !

JNP:

testé le code en D13, mais affiche 0.
A+

 

[JNP]

Re : incrémentation ne fonctionne pas !

Re ,

testé le code en D13, mais affiche 0.

si tu mets le matricule à 2, affiche 4 ...
Maintenant, il y a aussi des dates ...
A +

 

[kechor]

Re : incrémentation ne fonctionne pas !

Boinsoir JNP

OK je fais les choses à moitié

je te tiendrai au courant de la suite du programme.
C'est un formulaire de consultation que je veux réaliser, je viens de trouver le terme excat .

A plus tard