Bonjour à tous,
j'ai besoin de votre aide pour faire fonctionner mon code vb.
En effet, j'utilise ce bout de code pour remplir des cellules avec une détection de la dernière cellule non vide pour sortir du code.
Mon problème:
- c'est que je ne sais pas comment faire pour que lorsqu’il y a une cellule vide le code s’arrête de tourner.
- la cellule Bn reçoit une concaténation d'un numéro de téléphone + une date et heure j'aurai besoin d'une astuce pour convertir la date+heure en chiffre (comme une concaténation dans excel)
Sub prod()
Dim n As Integer
Dim d As Date
Worksheets("Donnees FT").Range("G1").Select
For n = 2 To 3000
Do While Not IsEmpty(Worksheets("Donnees FT").Range("G" & n))
d = Worksheets("Donnees FT").Range("H" & n)
Worksheets("Donnees FT").Range("B" & n) = Worksheets("Donnees FT").Range("G" & n) & d
If Worksheets("Donnees FT").Range("I" & n) = "non comptab. prod." Then
Worksheets("Donnees FT").Range("F" & n) = Worksheets("Donnees FT").Range("D" & n)
Worksheets("Donnees FT").Range("E" & n) = Worksheets("Donnees FT").Range("C" & n)
Else
If Worksheets("Donnees FT").Range("I" & n) = "post-prod" Then
Worksheets("Donnees FT").Range("F" & n) = Worksheets("Donnees FT").Range("F" & n - 1)
Worksheets("Donnees FT").Range("E" & n) = Worksheets("Donnees FT").Range("E" & n - 1)
End If
End If
Loop
Next n
End Sub
Merci de vos réponses.
j'ai besoin de votre aide pour faire fonctionner mon code vb.
En effet, j'utilise ce bout de code pour remplir des cellules avec une détection de la dernière cellule non vide pour sortir du code.
Mon problème:
- c'est que je ne sais pas comment faire pour que lorsqu’il y a une cellule vide le code s’arrête de tourner.
- la cellule Bn reçoit une concaténation d'un numéro de téléphone + une date et heure j'aurai besoin d'une astuce pour convertir la date+heure en chiffre (comme une concaténation dans excel)
Sub prod()
Dim n As Integer
Dim d As Date
Worksheets("Donnees FT").Range("G1").Select
For n = 2 To 3000
Do While Not IsEmpty(Worksheets("Donnees FT").Range("G" & n))
d = Worksheets("Donnees FT").Range("H" & n)
Worksheets("Donnees FT").Range("B" & n) = Worksheets("Donnees FT").Range("G" & n) & d
If Worksheets("Donnees FT").Range("I" & n) = "non comptab. prod." Then
Worksheets("Donnees FT").Range("F" & n) = Worksheets("Donnees FT").Range("D" & n)
Worksheets("Donnees FT").Range("E" & n) = Worksheets("Donnees FT").Range("C" & n)
Else
If Worksheets("Donnees FT").Range("I" & n) = "post-prod" Then
Worksheets("Donnees FT").Range("F" & n) = Worksheets("Donnees FT").Range("F" & n - 1)
Worksheets("Donnees FT").Range("E" & n) = Worksheets("Donnees FT").Range("E" & n - 1)
End If
End If
Loop
Next n
End Sub
Merci de vos réponses.