Discussion :

[gibtoul]

Bonjour,

Je butte sur une fonction à implementer dans mon projet.

j'ai dans la colonne H (H3:H744) des valeurs calculées
de type =AP89+AJ89+BW89+AD89

J'ai dans la colonne G (G3:G744) eventuellements des valeurs saisies ou pas

Est il possible en VBA, de pourvoir copier les valeurs de la colonne H (voir les formules presentes dans les cellules) vers la colonne G sauf les valeurs saisies.


Merci pour votre aide

A bientot

gibtoul

[casefayere]

Bonjour,

Testes ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub exemple()
Dim Derlg As Integer, x As Integer
Dim TbG, TbH
'Feuil2" à remplacer par le nom de ta feuille
With Sheets("Feuil2")
  Derlg = .Range("G" & .Rows.Count).End(xlUp).Row 'dernière ligne renseignée en G
  TbG = .Range("G3:G" & Derlg) 'variable comprenant les valeurs de G
  TbH = .Range("H3:H" & Derlg) 'variable comprenant les valeurs de H
  For x = 1 To UBound(TbG)
    If TbG(x, 1) = "" Then TbG(x, 1) = TbH(x, 1)
  Next x
  .Range("I3").Resize(UBound(TbG), 1) = TbG
End With
End Sub

[gibtoul]

Bonsoir casefayere

Merci pour ton aide à la resolution de mon bloquage.
j'ai testé le code.

Est-il possible de renseigner la colonne G sans passé par la colonne I

Pour le dimensionnmenent , le test se fait sur la derniere cellule saisie de la colonne G; Est-il possible de figer le dimensionnement à la ligne 744

A+

Gibtoul

[casefayere]

c'est un oubli, je l'ai fait pour un test, en respectant ce que tu dis, changes cette ligne :

Code :

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

 .Range("I3").Resize(UBound(TbG), 1) = TbG

en

Code :

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

 .Range("G3:G744") = TbG

[gibtoul]

casefayere

J'ai modifié le code mais j'ai un comportement anormale

je te fois le fichier que j'ai modifié.

La zone doit bien aller jusqu'à la ligne 744 mais je n'ai pas forcement des valeurs à renseigné que se soit sur G ou H

Merci

Gibtoul

[casefayere]

Je ne vois pas de problème, normal les #N/A, tu veux obligatoirement aller à 744, c'est pour ça que je préfère trouver la dernière ligne renseignée.

essayes comme ça :
je laisse tomber ta ligne 744, ça sera automatique, je prends la dernière valeur de F (titre C), tu pourras changer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub exemple()
Dim Derlg As Integer, x As Integer
Dim TbG, TbH, y As Integer
'Feuil2" à remplacer par le nom de ta feuille
With Sheets("Feuil2")
  Derlg = .Range("F" & .Rows.Count).End(xlUp).Row 'dernière ligne renseignée en G
  TbG = .Range("G3:G" & Derlg) 'variable comprenant les valeurs de G
  TbH = .Range("H3:H" & Derlg) 'variable comprenant les valeurs de H
  For x = 1 To UBound(TbG)
    If TbG(x, 1) = "" Then TbG(x, 1) = TbH(x, 1)
  Next x
  .Range("G3:G" & Derlg) = TbG
End With
End Sub