XL 2013 Problème sur modification de données tableau VBA

  • Initiateur de la discussion Initiateur de la discussion BENAM69
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

BENAM69

XLDnaute Occasionnel
Bonjour,

J'ai fini par programmer un fichier excel.
Tout fonctionne comme je le veux. Un seul problème :
Sur l'onglet n°1 (Donnée) : Il y a 3 tableaux. Celui qui pose problème est le 1er, juste sur une partie.
Quand je remplis une donnée sur la colonne I ( date de réception) et J (Quantité reçue), les données sur la mêmes lignes (colonnes A,B,C,D) se modifient alors qu'il ne doivent en aucun cas se modifier après copier coller sur l'onglet n°2 (Entrée Matiere).

Quelqu'un peut-il me dire ce qui ne va pas svp ? Je vous joins mon fichier excel avec ma programmation pour que vous puissiez tester vous même

PS : le bouton d'activation est un carré bleu

Je vous remercie par avance de votre aide

BENAM
 

Pièces jointes

Bonjour,

J'ai fini par programmer un fichier excel.
Tout fonctionne comme je le veux. Un seul problème :
Sur l'onglet n°1 (Donnée) : Il y a 3 tableaux. Celui qui pose problème est le 1er, juste sur une partie.
Quand je remplis une donnée sur la colonne I ( date de réception) et J (Quantité reçue), les données sur la mêmes lignes (colonnes A,B,C,D) se modifient alors qu'il ne doivent en aucun cas se modifier après copier coller sur l'onglet n°2 (Entrée Matiere).

Quelqu'un peut-il me dire ce qui ne va pas svp ? Je vous joins mon fichier excel avec ma programmation pour que vous puissiez tester vous même

PS : le bouton d'activation est un carré bleu

Je vous remercie par avance de votre aide

BENAM
With Worksheets("Donnee")
For x = 3 To .Range("a3").End(xlDown).Row
If .Cells(x, 9) <> "" Then
w = 1
For Z = 1 To 10
If Z = 5 Then Z = 9
Sheets("Entrée matiere").Cells(DL2, w) = .Cells(x, Z)
'=========================================
' Recopie de numéro pour la condition If Z = 5
.Cells(x, Z) = x - 1
les données sur la mêmes lignes (colonnes A,B,C,D)
'=========================================
w = w + 1
Next Z
End If
DL2 = DL2 + 1
Next x
End With
 
Re
@BENAM69 : Ce n'est pas bien et dans les moeurs d'ici d'ouvrir un 2eme post

Ah bon ??? et ça :
https://www.excel-downloads.com/threads/copie-colle-condition-et-supprime-vba.20027183/
Moi j'arrête !

Je ne savais pas qu'on ne pouvait pas ouvrir 2 posts mais ce n'était pas pour le même sujet.

En écrivant cela, je ne pensais pas t'offenser ainsi ce n'était pas dans mes intentions. Si c'est le cas, je suis désolé mais l'idée n'était pas de dire que j'ai programmé mais plutôt dans le sens où j'ai décidé de passer par VBA. La tournure est ambiguë je te l'accord
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
722
Retour