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🙂