Discussion :

[FMDCC]

Bonjour,

Je rencontre actuellement un problème d'enregistrement du contenu d'une cellule vers une autre.

Je m'explique... j'ai plusieurs feuilles sur mon fichier. La première contient ma base de données. La seconde permet de faire des recherches sur une copie de la base de données et la troisième est une fiche permettant un affichage plus pratique des diverses données ainsi que d'enregistrer certains modifications sur certains champs/colonnes).

Pour ce faire, j'ai ajouter à chacune de mes lignes de données une variable indiquant son numéro de ligne.

Lors du clic sur le bouton d'enregistrement, les modifs sont enregistrées sur la base de données principale ("base"), sur la copie de la base servant aux recherches ("Base_de_donnees") et sur la deuxième ligne de la 3ème feuille ("fiche").

Voilà un extrait du code qui s'exécute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim Numero_ligne_copro As Integer
 
Numero_ligne = Range("EF2").Value
Numero_ligne = Numero_ligne_copro + 1
 
'Modif du nom
If Not IsEmpty(Sheets("Fiche").Range("R11")) Then
Range("base").Cells(Numero_ligne, 126) = Sheets("Fiche").Range("R11").Value
Range("Base_de_donnees").Cells(Numero_ligne, 126) = Sheets("Fiche").Range("R11").Value
Range("fiche").Cells(2, 126) = Sheets("Fiche").Range("R11").Value
End If

L'enregistrement s'effectue bien sur la fiche mais ne fonctionne pas correctement sur les 2 bases de données. A chaque fois, c'est comme si le contenu de ma variable Numero_ligne était ignoré car il apparaît sur la première ligne actuellement.

[parmi]

Bonjour,

Je ne comprends pas ces 2 lignes...
Je pense qu'il y a une petite erreur...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Numero_ligne = Range("EF2").Value
Numero_ligne = Numero_ligne_copro + 1

Peut-être simplement comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Numero_ligne = Range("EF2").Value + 1

[FMDCC]

Le problème était bien là. Je l'ai corrigé comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
numero_ligne = Range("fiche").Cells(2, 135).Value
numero_ligne = numero_ligne + 1

Merci.