Aide VBA Access - cellule vide If et hen [Résolu/Fermé]

Signaler
Messages postés
15
Date d'inscription
mercredi 24 mars 2010
Statut
Membre
Dernière intervention
15 novembre 2010
-
Messages postés
15
Date d'inscription
mercredi 24 mars 2010
Statut
Membre
Dernière intervention
15 novembre 2010
-
Bonjour a tous,

J'ai un problème concernant mon code sous VBA Access, je souhaiterais qui reconnaisse que si il y a une case vide en (5,1) lors d'un export en automation alors en case (6,1) je peux mettre une phrase.

J'utilise :

If xlSheet.Cells(5, 1) = "" Then
xlSheet.Cells(6, 1) = "Youpi"
End If


Et ca ne marche pas, alors que si la valeur est 48 est que je remplace "" par "48" là ca marche ???? Que dois je utiliser comme expression pour la case vide ?

Pour info voici mon code complet qui peut servir d'exemple d'automation :

Private Sub LIA_01_Click()
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
Dim I As Long, J As Long
Dim t0 As Long, t1 As Long
t0 = Timer
Dim enr As Recordset
Set rec = CurrentDb.OpenRecordset("* ma requête", dbOpenSnapshot)
'Initialisations
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
'Ajouter une feuille de calcul
Set xlSheet = xlBook.Worksheets.Add
xlSheet.Name = "TT"
xlSheet.PageSetup.CenterHeader = ">T"
xlSheet.PageSetup.HeaderMargin = "1"
xlSheet.PageSetup.CenterFooter = "&G&P"
xlSheet.PageSetup.FooterMargin = "1"
xlSheet.PageSetup.Orientation = xlLandscape
xlSheet.PageSetup.Zoom = False
xlSheet.PageSetup.FitToPagesWide = 1
xlSheet.PageSetup.FitToPagesTall = False
xlSheet.PageSetup.LeftMargin = "0"
xlSheet.PageSetup.RightMargin = "75"
xlSheet.Cells(2, 1) = "Requête effectuée le " & Format(Date, "dd/mm/yyyy ") & "à " & Format(Time, "hh:mm:ss")
xlSheet.Cells(2, 1).Font.Bold = True
' les entetes
' .Fields(Index).Name renvoie le nom du champ
For J = 0 To rec.Fields.Count - 1
xlSheet.Cells(4, J + 1) = rec.Fields(J).Name
' Nous appliquons des enrichissements de format aux cellules
With xlSheet.Cells(4, J + 1)
.Interior.Pattern = xlSolid
.Interior.Color = RGB(192, 192, 192)
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeBottom).ColorIndex = xlAutomatic
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeTop).ColorIndex = xlAutomatic
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).Weight = xlThin
.Borders(xlEdgeRight).ColorIndex = xlAutomatic
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeLeft).ColorIndex = xlAutomatic
.HorizontalAlignment = xlLeft
End With
Next J
' recopie des données à partir de la ligne 5
I = 5
Do While Not rec.EOF
For J = 0 To rec.Fields.Count - 1
xlSheet.Cells(I, J + 1) = rec.Fields(J)
If xlSheet.Cells(5, 1) = "" Then
xlSheet.Cells(6, 1) = "Youpi"
End If
' .Fields(Index).Type renvoie le type du champ
' si c'est une date (dbDate) nous insérons en format date pour
' qu'il soit reconnu par Excel comme une date française
If rec.Fields(J).Type = dbDate Then
xlSheet.Cells(I, J + 1).NumberFormat = "dd/mm/yyyy"
xlSheet.Cells(I, J + 1) = rec.Fields(J)
With xlSheet.Cells(I, J + 1)
.Columns.EntireColumn.AutoFit
.Interior.Pattern = xlSolid
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeBottom).ColorIndex = xlAutomatic
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeTop).ColorIndex = xlAutomatic
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).Weight = xlThin
.Borders(xlEdgeRight).ColorIndex = xlAutomatic
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeLeft).ColorIndex = xlAutomatic
.HorizontalAlignment = xlLeft
End With
Else
xlSheet.Cells(I, J + 1) = rec.Fields(J)
With xlSheet.Cells(I, J + 1)
.Columns("B:ZZ").EntireColumn.AutoFit
.Interior.Pattern = xlSolid
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeBottom).ColorIndex = xlAutomatic
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeTop).ColorIndex = xlAutomatic
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeRight).Weight = xlThin
.Borders(xlEdgeRight).ColorIndex = xlAutomatic
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeLeft).ColorIndex = xlAutomatic
.HorizontalAlignment = xlLeft
End With
End If
Next J
I = I + 1
rec.MoveNext
Loop

Set xlSheet = xlBook.Worksheets("Feuil1")
xlApp.ScreenUpdating = False ' pour empêcher le message d'excel
xlSheet.Delete
xlApp.ScreenUpdating = True

Set xlSheet = xlBook.Worksheets("Feuil2")
xlApp.ScreenUpdating = False ' pour empêcher le message d'excel
xlSheet.Delete
xlApp.ScreenUpdating = True

Set xlSheet = xlBook.Worksheets("Feuil3")
xlApp.ScreenUpdating = False ' pour empêcher le message d'excel
xlSheet.Delete
xlApp.ScreenUpdating = True



' code de fermeture et libération des objets
xlBook.SaveAs "TT.xls"
xlApp.Quit
MsgBox ("Requête de M enregistrée dans -Mes Documents-")
rec.Close
Set rec = Nothing
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
t1 = Timer


End Sub


En tout cas meci pour votre aide.

Cordialement





4 réponses

Bonjour,

Personne pour m'aider ?

merci d'avance
Messages postés
1144
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
BONJOUR

as tu essayé avec if isnull(xlSheet.Cells(5, 1)) Then
Messages postés
15
Date d'inscription
mercredi 24 mars 2010
Statut
Membre
Dernière intervention
15 novembre 2010

Bonjour,

Même avec ton code, ca ne marche pas...c'est dingue ca...

Peut être que je place mal mon code ?

Merci de votre aide en tous cas.

Edy360
Messages postés
15
Date d'inscription
mercredi 24 mars 2010
Statut
Membre
Dernière intervention
15 novembre 2010

Bonjour à tous,

En fait le code était mal placé, en placant le code ci dessous après le "Loop", c'est ok.

If xlSheet.Cells(5, 1) = "" Then
xlSheet.Cells(6, 1) = "Youpi"
xlSheet.Cells(6, 1).Font.Bold = True
End If

A plus et merci de votre aide.